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PREFACE 



This is a general -pur pose reference manual 
for the IBM Time Sharing System CTSS) com- 
mand system. Since users of this book have 
varying degrees of knowledge about the com- 
mand system, there are several levels of 
information in it. The book is organized 
as follows: 

• Part 1 explains the basics of the com- 
mand system Cfor example, what a com- 
mand statement is) and the method of 
describing commands. 

• Part II is divided into six sections ff 
each describing one -group of commands. 
This contains general information about 
the commands. 

© Part III contains format illustrations 
and descriptions of the commands. The 

commands appear in alphabetical, order - 

Examples of their use are provided. 

« The appendixes provide supplementary 
reference material, for example, bulk 
I/O procedures , system-supplied tables 
and default values , special codes for 
printer and punch control, and detailed 
information about some commands. 



If you are a new user of the command sys- 
tem, you should read Part II to get back- 
ground knowledge about the commands. If, 
in addition, you are a new user of TSS, 

r e a 3 IBM Time Sharing ...System:, ...Concepts _and 

Facilities , GC28-2003 an' introduction to 
the system* When you enter commands into 
the system, enter thero as shown in the. for- 
mat illustrations in Part. III. If you are 
entering commands at a terminal and are not 

familiar with the terminal, read IBJM Time 

Sharing System: Terminal User* s Guide , 
GC2 8-2017« You may have to review"" the com- 
mand descriptions and examples that are in 
Part III 



several times while you are learning the 

system. 

As you become familiar with the command 
system, you may use only the format illus- 
trations in Part II, If you need a quick 
reference, you may go Immediately to Appen- 
dix G- 

Commands that are used exclusively by a 
system operator,, administrator, manager, or 
programmer are not described in this book. 
For information about these commands see 
MiL..7^ l l e .„ Sharing System; Operator's Guide , 
G c ,:~ • ' ~* ? f " l.rt >T Ti rn^ "Sharing System: Mana- 
ger" s and Administrato r's Guide , GC28-2024, 
and I BM _ T iroe ...Sharing Syst _<an z _ Syste m Pro- 
grammer g s Guide, GC2 8-2008. 

A publication list appears in IBM Time 
Sharing System ; Addendum, GC 2 8- 204 3, Some 
other publications in the IBM Time Sharing 

System library that you may need to use, in 
addition to those that are listed above, 

are: 

.gX s ^QTi Messages, GC28-2037 

guijcfc ■Guide for Users, GX28-6400 

assembler Language , GC 27 - 2 

Assemb ier Programmer * s Guide , GC 2 8- 2 3 2 

A s s emb 1 er se r__ Macro Instructions , 
~GC2 8-2004 

In tx od tic ling TSS ; h Primer for FORTRAN 
Users, GC 20- 2 04 8 

FORTRAN Prggrairaner's Guide , GC2 8-2025 

.■rdiil^ .t?.ii :•■•. ,J-Slk:^L * G c *: 8 -- 2 5 
P-^'/l.--jg£Q.gjBumg![g£. 8 .s Guide, GC2 8-2049 
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PART I: THE COMMAND SYSTEM 



The command system is the principal means with which you communicate 
with the IBM Time Sharing System (TSS). With the command system, you 
can create, execute, and debug your programs; you can create, alter, and 
destroy collections of data (known as data sets); and you can modify 
system commands or write your own commands. Each comirand acts as an in- 
struction to the system; that is, it tells the system what operation you 
want performed and on which data you want to operate. 

The command system can be used in two modes: conversational and noncon- 
versational. In conversational mode you interact with the system at 
your terminal. As you enter each command, it is executed by the system. 
In nonconversational mode, the system executes one or more commands that 
exist in a prestored data set. Each command is executed as it is 
entered into the system from this data set, but there is no interaction 
between you and the system through the terminal. In either mode, if you 
have not designated that you are finished using the system, you are pro- 
mpted for another command. 

The system commands have been grouped into seven categories. These cat- 
egories and the sections in which they are described in Part II are 
listed below: 

• Task management (see Section 1) 

• Data management (see Section 2) 
Bulk output (see Section 2) 

• Program management (see Section 3) 

• Command creation (see Section *♦) 

• Message handling (see Section 5) 

• User profile (see Section 6) 

• Program Product Language Interface (see Section 7) 

Task management commands allow you to initiate, control, and terminate 
the processing of your task. These commands do not manipulate data, nor 
do they create programs; they are used to start and to stop execution of 
your task. 

Data management commands allow you to create and iranipulate data sets* 
These data sets can contain programs to be compiled, data to be main- 
tained, or commands to be executed. 

3ulk output commands allow you to initiate output operations on system 
printers or punches. 

Program management commands allow you to initiate and control the execu- 
tion of your programs, to initiate compilation cr assembly of data sets 
created with data management commands, and to debug ycur programs after 
they have been compiled or assembled. 

Command creation commands allow you to create ycur cwn ccirmands to sup- 
plement cr replace system commands. 
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Message handling commands allow you to create your own message file froir 
which messages are issued to your task. You can supplement the system's 
message file, create your own new messages , and display messages for 
review or clarification. 

User profile management commands allow you to control the environment in 
which your task executes. You can alter values for operands? you can 
change the translation tables; and you can choose whether to make your 
changes permanent or temporary. 

The Program Product Language Interface CPPLI) allows you to execute the 
OS/VS program product compilers via interface modules. 

Note: Unless otherwise noted, the commands described in this book may 
be used in either conversational or non conversational operations. 

This publication describes the command system for use in doing produc- 
tive work. The system maintainence commands are described in System 
Programmer's Guide, Operator's Guide , and Manager's and Administrator's 
Guide . 

COMMAND FORMAT AND NOTATION 

The basic format of a command is: 



j Op er at ion j Operand j 

i + _. — ^ 

| command (one operand; several operands delimited by commas or tabs; | 
(name [field may be blank I 

The operation field contains a command name, such as CANCEL or EXECUTE, 
that identifies the command and its requested action,. The command name 
may not exceed eight characters or contain an embedded blank. The 
operand field contains any information required by the command. 

While the operation field specifies the action to be performed, the 
operand field indicates the elements upon which the command is to act. 
The operand field may be blank or may contain several operands, depend- 
ing on the requirements of the operation. Multiple operands in an 
operand field must be separated by commas or tabs. Blanks may be used 
between operands, in addition to the delimiter, but they are ignored by 
the system. For example: 

a,b,c 
a, b, c 

or 
a (tab) b, c 

yield identical results when the command is executed. The operand field 
must be separated from the operation field by either a tab or one or 
more blanks. 

Note : In the examples throughout this publication, commas are used as 
operand separators. 

COMMAND STATEMENT 

A command statement is one command or a series of commands that are 
separated by semicolons. The system recognizes a command statement as 
one SYSIN record. Normally, one command statement is written on one 
line; however, when one command statonent is written on more than one 



line r you must end each line that is being continued with a hyphen. You 
may coirirent a command, but the comment must be separated from the com- 
mand by a semicolon and the comment must be written between single quo- 
tation marks. (If several commands are used in the command statement, 
there must be a semicolon fcefore the comment and another semicolon 
af terthe comment. > Comments do not affect execution* Comments can be 
used in places other than on a command statement. You may begin a com- 
ment after a system underscore, as follows: 

_ f this is a comment ■ 

There are three types of command statements: dynamic, immediate, and 
conditional. t\ dynamic command statement contains an AT command, which 
specifies the location where the coirmands in the statement are executed. 
An immediate command statement does not contain an AT command and is 
executed when it is entered into the system. A conditional command 
statement (dynamic or immediate) contains an IF command, and the part of 
the statement following IF is executed only when the condition stipu- 
lated by IF is true. The following are examples of immediate (1, 2, and 
3), dynamic (4), and conditional (5) command statements: 

1. delete myds; "erase the catalog entry for myds*; cancel 3219;- 
• eliminate print task" 

2. execute datal; catalog data 2, u,u; logoff 

3 . wt dsname=abc ,dsname2=xy z , volume=l 233, f act or=3 , s t artno=6 , endno=35 , - 
prtsp=ed it; "output data set" 

4. at pgm.a; display x 

5. if x>0; display x; 'test variable x* 

The commands are described and some examples cf the use of commands are 
given in Part III. See also "Use of Command Statements" in Section 3 of 
Part II. 



OPERAND REPRESENTATION 

The system can determine the value of a specific operand in one of two 
ways: (1) from the position of that operand within a series of operands 
or (2) from a descriptive keyword preceding the operand value. When 
positional operands are used, they must appear in the order that is 
shown in the command format illustration. If a positional operand is 
omitted and another positional operand is written following the omitted 
operand, the delimiter (that is, comma or tab) that would have followed 
the omitted operand must fce used to indicate the relative position of 
the operand that is included. For example, positional cperands a, b, 
and c may fce written as: 

a,b,c a,,c a,b a ,b,c ,b ,,c (blank) 

Keywords may appear in any order, in the general form: 

K£YWORD=value 

where KEYWORD is the name of the operand and is shown in the illustra- 
tion in all-capital letters, and value is the actual value of the 
operand. Delimiters are not required to indicate omitted keyword 
operands. When you enter keyword operands in positional notation, you 
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can omit the keyword. You then follow the rules for entering operands 
in positional notation. 

Keyword and positional representation of operands iray be used simul- 
taneously in the same operand field. For example, assuming three 
operands with keywora representations expressed as A=x, B=y, and C=z, 
the operand field may be represented ass 

A=x,B=y,C=z A=x,y,z A=x,B=y,z x,C=z,E=y x,C=z E=y 

When the keyword form is used, the same keyword operand can be repeated 
several times in the operand string; however, the system uses the last 
value specified in the operand string for a given operand. For example: 

command a=x,b=y,a=u, c=z,a=p 

In this example, the keyword operand A takes a final value, A=P. If a 
value is given to the same operand in both keyword and positional repre- 
sentation, the last value encountered in the command statement is used 
when the command is executed. For example: 

x,c=l,y f b=u 

This command executes as if the values were: 
x,u,y 

Operands are resolved from left to right; that is, the last value 

eri countered for a given operand is used when the command is executed. 

Again, if a command format shows three keyword operands: 

r j — . j 

I Operation | Operand | 

j. + . ^ 

J COMMAND | A=term,B=value ,C=name | 

L A- J 

the command can be entered as : 
command x,y,z,b=p 

The operand specified by B is resolved as E=p. The command executes as: 

command x,p,z 

A self -defining keyword has all the properties of a normal keyword. In 
addition, the keyword may appear in a command by itself , without an 
equal sign and value; in this case the user will be passed the single 
character "Y" . If the keyword is entered by itself but prefixed with 
■NO", the user will be passed the single character 'N 1 . For example, 
the following two commands pass the same parameters to the user: 

PROFILE TASK=N 
PROFILE NOTASK 

The examples are a guide; they do not contain all possibilities for 
these operands. Operand resolution is described more fully in Section 4 
of Part II. 



COMMAND FORMAT ILLUSTRATIONS 

The following mutational conventions are used in the command format 
illustrations to explain how an operand is to be written. 



USE OF METASYMBOLS 

To make the operands in the format illustrations clear, four metasymfcols 
are used: 

Name Symbol Use 

braces I } delimit syntactical units (one or ircre operands) 

that may be repeated? delimit alternatives. 

brackets [ 1 delimit optional names and operands, or both, in 

the appropriate field. 

vertical | separates choices for the operand; for example, 
stroke CA|B} denotes that, for the syntactical unit enc- 

losed by the braces, either A or B may be chosen, 
but not both. (A|B|C> denotes that a choice must 
be made between A, E, and C. Alternatives may also 
be indicated by aligning the choices vertically 
within the braces: f a) 

W 

ellipsis ... indicate that the preceding syntactical unit may be 

repeated one or more times. If there is a system 
limit to the number of repetitions permitted, this 
is given in the operand list that follows the for- 
mat illustration. 



OPERATION FORMAT 

To distinguish command names in the format illustrations, uppercase let- 
ters are used. The user may enter command names in either uppercase or 
lowercase letters, depending on his mode of input (see "SYSIN Device and 
Character Control, " in Section 1 of Part II). In folded mode (that is, 
uppercase letters and lowercase letters are equivalent), he may use 
both. Unless specified by the user, this is the normal mode of keybcard 
input. In full EBCDIC mode (that is, uppercase and lowercase letters 
are differentiated by the system) , he must use uppercase letters. The 
operation must be separated from the operand by one or more spaces or by 
a tab. A detailed description of how to enter coxrirands is given in Sec- 
tion 1 of Part II, under "Communicating with the System. " 



OPERAND FORMAT 

Within the operand field of the format illustration, the word or phrase 
that is used to identify each operand is written entirely in lowercase 
letters. For positional operands, only the lowercase word or phrase ap- 
pears; for keyword operands, the keyword (to the left of the equal sign) 
is in uppercase letters, and the keyword descriptor Oto the right of the 
equal sign) is in lowercase letters. 

Note : Unless otherwise noted in the operand descriptions, all operands 
shown in keyword format may be specified positionally. The converse is 
not true; operands shown in positional format must be specified in posi- 
tional notation. 
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Coded Value ; This is a character or string of characters that must be 
written exactly as shown in the fcrmat illustration. Ceded values 
always appear in format illustrations as numbers or uppercase letters, 
either to the right of the equal sign or standing alone . 

The comma, the period, and the parentheses have special significance in 
format illustrations. Commas (or tabs) must always be used to separate 
operands or to show the omission of positional operands* unless no other 
operand follows the omission. Parentheses and periods must be written 
as shown in the format illustrations. 

OPERAND DESCRIPTIONS 

Detailed information about writing each operand is given in a list fol- 
lowing every format illustration. At the end of the operand description 
information that appears under the heading "Specified as" describes the 
valid specifications for the operand, and inf criraticn under the heading 
"System default," describes the system's action if the operand is 
omitted. System default is not shown if the system's default value is 
null. 



COMMAND FUNCTION AND USE 

Following the operand description, the command is discussed under "Func- 
tional Description," "Programming Notes," and "Cautions." 

"Functional Description" describes the action of the system when the 
command is received. "Programming Notes" contains information on how to 
use the command? if none of this information is pertinent to the partic- 
ular command, the subheading for these notes are emitted. "Cautions" 
are statements of warning to the user about difficulties he may have in 
using the command. "Cautions" appear only where applicable. 

In the examples of command usage that follow the command description you 
are given a brief description of what is being accomplished. The exam- 
ple shows the user's input and the system f s response. 

GENERAL TERMS 

These general terms are used in many of the command descriptions in Part 
III. (More terms, referring to a specific functional group of commands, 
are defined under "General Terms* in Section 2 of Part II ) 

cataloged 

a data set is cataloged when its name and other pertinent informa- 
tion is entered in the user's catalog. All VSAK, VISAM, and VPAM 
data sets are automatically cataloged when thev are created* All 
others are cataloged via the CATALOG or EVV command- 
data definition name CDDNAME) 

the name assigned to the data set definiticn for a given data set 
by DDEF. This name consists of one to eight alphameric characters, 
the first of which must be alphabetic. 

data set name (DSNAME) 

the name used to identify a data set. A data set name consists of 
one or more simple names. Each simple name has from one to eight 
alphameric characters, the first of which must be alphabetic. A 
period is used as the separator between simple names « 



E xarrple : 

GOAT 

GOAT.WINNER9 

GOAT . RALPHR. S6 6 . PI . A 

The maximum number of characters, including periods, is 35. There- 
fore, the maximum number of simple names is 18. 

Fully qualified data set name : identifies one specific data set; 
it includes all simple names (that is f qualifiers or index levels) 
of that data set name. 

Partially qualified data set name : identifies two or more data 
sets by omitting the rightmost simple names of their fully quali- 
fied data set names* For example, the partially qualified data set 
name G0.AE14 identifies data sets G0.AB14. PI and G0.AB14.P2. 

default value 

the value that the system or user assigns to an operand of a com- 
mand or to an implied operand. This value is used when the operand 
is omitted. 

defined 

a data set is defined when its characteristics are described to the 
system. Every uncataloged data set referred to in a task must be 
defined within that task? the definition must precede the first 
reference. A data set may be defined by means of a EDEF command, a 
DDEF macro instruction, or a CDD command that results in execution 
of a prestored DDEF command. 

generation data group 

a collection of successive, historically related data sets called 
generations • The entire group is referred to by a single, partial- 
ly qualified data set name that is limited to 26 characters to 
allow for appending absolute generation numbers. 

generation names 

specific generations of a generation data group are referred to by 
appending an absolute or relative number to the generation data 
group name. 

Absolute generation number : has the form GxxxxVyy, where xxxx is a 
four-digit decimal generation number, and yy is a two-digit decimal 
version number. 

Example : 

HURST. LI NER4.TT.G0002V01 
HARZ.G04 52V23 

A period must separate the absolute generation number from the 
generation data group name to which it is appended. 

Relative generation number : a plus or minus decimal number. The 
relative generation number of the most recently cataloged genera- 
tion is CO); the generation just prior to that is (-1), and the one 
just prior to C-l) is C-2) ; a new generation is (+1). 

Example : 

GOST.YZ(O) 
G0ST.FF.PKJU1) 
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line 

a physical record in a line data set: or region data set. Also, 
line may refer to a unit of information entered from a terminal. 
In this context , a line consists of the string of characters (in- 
cluding blanks) typed in before the RETURN key is pressed. 

member name 

identifies a member of a VPAM data set. The member name consists 
of from one to eight alphameric characters^ the first of which must 

be alphabetic* 

Example s 
FRH.T4CSWING8) 

The member name is enclosed in parentheses and immediately fellows 

the VPAM data set name* 

source list 

a string of commands or program calls used as input to the system. 

volume identification 

the identification assigned tc a specific volume. The volume iden- 
tification cons its of from one to six alphameric characters. 



PART lis USE OF COMMANDS 

The system-supplied commands are grouped into seven categories. tach 
group has a different function. The groups are: 

• Task management 

• Data management 

• Prograir management 

• Command creation 

• Message handling 

• User profile 

• Program Product Language Interface CPPLI) 

The commands in each group are discussed in the sections that follow. 
Detailed descriptions of the commands are presented in Part III. 



SECTION 1: TASK MANAGEMENT 



Task management commands allow the user to initiate and terminate tasks 
or to supplement or change the system's operation fcr his own task. The 
term "task" describes any discrete sequence of the system's operations 
for the user. 

The user's task comprises all the work done by and for the user. It is 
initiated by a LOGON command and is terminated by a LOGOFF command. 
However, certain conditions , such as an abnormal task termination 
(ABEND) , cause the system to issue a LOGOFF command to terminate the 
current task and a LOGON command to initiate a new task for the user. 

The task management commands and their system functions are shown in Ta- 
ble 1. 



r t 

| Command | 

J- + 



Table 1. Task management commands and their functions 

Function 



— i 

I 

— I 



ABEND 
ABENDREG 

BACK 

BEGIN 
CANCEL 

CHGFASS 

EXECUTE 
EXHIBIT 

LOGOFF 
LOGON 

SECURE 

TIME 
USAGE 

ZLOGON 






Eliminate the current task; start a new task. 

Display register contents at the time of the most recent 

AEENE. 

Shift the user's conversational task to nonconversational 
mode. 

Connect the user to an MTT application program. 

Terminate execution of a nonconversational task prior to its 
normal end. 

Alter the user's password. 

Initiate a previously defined nonconversaticnal task. 

Display the activity of the batch work queue cr of a user 
task. 

Notify the system that the user wants to terminate his task. 

Identify the user to the system for initiation of his task. 

Identify the types of I/C devices that are needed for private 
data sets in a nonconversational task. 

Establish a time limit for execution cf the task. 

Present statistics relating to the user's utilization of sys- 
tem resources. 

Perform, at LOGCN, a user's previously defined procedure. 



Communicating with the System 

The user is known to the system by his user identification, which is as- 
signed to him by an installation administrator using the JOIN command. 
All the user's data is stored in the system under his identification. 
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Thus, when the user is connected tc the system, the minimum data re- 
quired to initiate communication is his user identification. 

Resource Contro l 

When the user is joined to TSS, he is assigned a user limits table, 
which controls the allocation of system resources for his use* The user 
is limited to the amount of CPU time, connect time,, pages of permanent 
and temporary storage , unit-record devices, direct access devices* mag- 
netic tape devices, bulk I/O, and tasks.. These rations are imposed ei- 
ther for a specific time period or for the cumulative time that the user 
is joined to the system. The limits established for a user are deter- 
mined by his installation. The user can examine his usage of resources 
with the USAGE command (see Part III). 



CONNER SATICNAL MODE 

CONVERSATIONAL TASK INITIATION 

After turning on his terminal and dialing the system, the user initiates 
his task by entering a correct LOGON command. He also has the option of 
connecting to an already running task with the BEGIN command- He iray 
enter his commands through his terminal keyboard, or card reader, to di- 
rect execution of his task* 

SYSIN s This name designates the source of the input stream, which con- 
tains the series of command statements that direct the user's task, and 
may include source language statements and data. In conversational 
mode, this input stream is entered through the user's terminal. The 
executable command statements within a conversational S1SIN are recorded 
only as the printed listing at the terminal; the exceptions are the 
DATA, MCDIfY, and text- editing commands, which are used to build a data 
set that is recorded within the system. 

TIME : As a part of the initialization (LOGON) process, the system auto- 
matically invokes the TIKE command, establishing a CPU time limit for 
execution of the user's task. The user may specify a time limits not 
exceeding 7 1/2 hours, by issuing the TIME conirand at any time during 
his task. 



CONVERSATIONAL TASK EXECUTION 

After the initialization process has been completed, the system asks the 
user to enter his next command statement (see "Request for Next Command 
Statement, " below) and engages in a conversation with him. The user's 
part of this dialog consists of any command and source language state- 
ments that he enters during execution of his task and his replies to the 
messages issued by the system* The system f s part of this dialog con- 
sists of messages to the user, responses to his command statements, and 
requests for command statements* The user has control over the length 
and type of messages he receives. (Details are presented later in Sec- 
tion 5. Message texts appear in this manual as part of the examples. 
Messages are published in System Messages , GC28-2037. The system issues 
general information messages and diagnostic messages that inform the 
user of error conditions* 

INFORMATION MESSAGES ; These messages prompt the conversational user to 
supply certain information when a mandatory operand has been omitted or 
inform the user of the actions the system has taken in executing a com- 
mand statement* 
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DIAGNOSTIC MESSAGES : These messages warn the user of errors that he has 
made in entering a command name or operands. Seme iressages request the 
user to correct his errors. 

ENTERING COMMAND STATEMENTS : Command statements may be entered into the 
systeir from the user's terminal, the system card reader , or a magnetic 
input device in which the information is stored in card-image format. 
Uppercase and lowercase notations in this publication are illustrative; 
command statements may be entered in either fcrir. 

The end of a command statement entered from the terminal keyboard is in- 
dicated by pressing the RETURN key. If a command statement requires 
more than cne line, one hyphen must be typed at the end of the line be- 
fore the RETURN key is pressed. The hyphen signals that the statement 
is not complete and is continued on the next line. 

Command statements that are entered through the terminal card reader can 
utilize free-form format (that is, input is not restricted to particular 
card fields). The 11-5-9 punch, following the command operands, is used 
to signify end of block (E0B) for command statements. For statements 
longer than 80 characters, with the terminal EOB switch on, the con- 
tinuation character may appear in any available column. If the ECE 
switch is off, the continuation character is not needed unless tne 
statement exceeds 260 characters. 

Note : Nonconversational input thrcugh a high-speed card reader does not 
require the 11-5-9 punch to signify EOB; its inclusicn will have no 
effect. A semicolon is a valid command separator. An EOB is automati- 
cally inserted by the card reader at the end of every card. A continua- 
tion character must appear (in any column) for command statements that 
require more than one card. 

Caution : in most cases, tab characters are treated as spaces and are 
valid characters in the command system. However, because of physical 
limitations in terminal devices, displaying tabs of more than 65 consec- 
utive spaces at the terminal printer might cause the next character to 
be lost. Furthermore, when two or more consecutive tabs are entered 
through the terminal card reader, they may not be printed correctly at 
the terminal printer, even though they are correctly transmitted to the 
system. 

REQUEST FOR NEXT COMMAND STATEMENT : The system informs the terminal 
user that it is ready to accept his next command statement by printing a 
prompt character that, initially, is an underscore character (_) in the 
first character position of a new line. (The system backspaces one 
space so that the first character you enter is above the underscore.) 
When the terminal card reader is being used to enter input, the system 
signals that it is ready for the next card, or the next command on a 
card, by printing the underscore. 

SYSIN DEVICE AND CHARACTER CONTROL : The user has six commands (listed 
in Table 2) that he can use to select the SYSIN device or the character 
set he wants to use for communication with the system. 

When the user initiates a conversational task, the system checks the 
value of the ALPHABET operand in the user's profile (see Section 6). 
Initially, its value is 1, which indicates folded mode. The user can 
type any lowercase letter, and the system converts it to uppercase. The 
special characters, , ", !, 3, #, and $, are valid alphabetic charac- 
ters in either mode. The system accepts the full EBCDIC character set 
when the user enters KA. To initiate card reading, the user enters the 
C, CA, or CB command at the keyboard and presses the RETURN key. The 
system reads all the cards or reads cards until the user presses the AT- 
TENTION key or until a F, KA, or KE command is read. After any of these 
conditions, the system requests the next input from the keyboard. 
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For further instructions on SYSIN device selection and character con- 
trol, refer to Terminal User's Guide , 



Table 2. 

I Command j 
H + 



Commands for SYSIN device and character set selection 

Function 






CA 



CB 



KA 



KB 



Transfer control to the card reader; if the keyboard mode was 
KA, CA is the new mode; if KB was the keyboard mode, CB is 
the new mode. 

Transfer control to the card reader and convert card input 
from 1057 Card-Punch code to EBCDIC- 
Transfer control to the card reader and convert card input 
frcm 029 punch code to EBCDIC. 

Transfer control to the keyboard; if the character set used 
during card reader input was CA, KA is the new mode; if CB 
was the card reader mode, KB is the new mode. 

Transfer contrcl to the keyboard and use the full EBCDIC 
character set. Can be used to change the AIPHABET operand 
without transferring control. 



Transfer control to the keyboard and use the folded character 
set. Can be used to change the ALPHABET operand without 
transferring control. 



COMMAND STATEMENT EXECUTION : First, every coirirand statement entered by 
the user is analyzed to determine if it is valid. Then, if it is, the 
actions requested by the command statement are performed. Lastly, the 
user is prompted to enter the next statement. If a command in a coirirand 
statement is not valid, the system issues a diagnostic message, which 
may request the user's corrections. If the invalid command is canceled, 
the rest of the command statement is executed before the system invites 
the user to enter his correction or the next statement. Prompting mes- 
sages are issued as each command in a statement is analyzed, and the 
user can supply requested information when the message is issued. 

Correctly entered commands have the same effect whether they are entered 
in one statement or in individual statements,, For example: 

call abc; print resultds, , ,edit; delete gh.k 

produces the same result when executed as: 

call abc 

print resultds , , , edit 

delete gh.k 

The first example (three commands in one command statement) is more con- 
venient for the user, since he does not have to wait for the execution 
of each command before he can enter the next command. If the CALI com- 
mand had been entered incorrectly and was canceled by the system, the 
user would not be able to correct the ccirmand until the other two com- 
mands were executed. In the second example, he would be able to correct 
his error before PRINT and DELETE were executed. 

COMMAND STATEMENT RESOLUTION ; When a command statement is entered, the 
system goes through this sequence of events to resolve the contents of 
the statement. 
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1. The system searches a list of synonyms to see if one exists for the 
specified command name. If one does f the system replaces the spec- 
ified name. This step is repeated until no further synonym is 
found. 

2. The system searches the user f s procedure library, which contains 
commands he has written* to see if the command name exists there. 
If it does, the system performs the action described in Item 5, If 
it does not, the system performs the action described in Iteir 3. 

3. The system searches the system f s procedure library, which contains 
systeir -supplied commands „ If the command name is there, the system 
performs the action described in Item 5. If not, the system dees 

Item 4. 

4. The system assumes that what was entered was a module name, not a 
command name. A direct program call is executed. 

5. The system resolves the operands. 

a. When keywords are specified, the list of synonyms is searched. 
If a synonym is found, it is inserted in place of the specified 
keyword. 

b. If explicit operand values are specified, they are used; if 
net, the system does Item c. 

c. A list of user default values is searched; if values exist, 
they are inserted? if not, the system does Item d. 

d. A list of system default values is searched; if values exist, 
they are inserted; if not, the system does Item e„ 

e. Ihe operand is given a null value, 

6. This command is invoked. 

Note : Ihe default values initially assumed by the system are described 
in Appendix C; how to specify defaults and synonyms is discussed in Sec- 
t ion 6 . 

CONVERSATIONAL TASK INTERRUPTION 

The user can interrupt execution of his conversational task by pressing 
the ATTENTION key at his terminal. The system °s response depends upen 
when the interruption occurs (see lafcle 3). 

Tafcle 3. System responses to attention interruptions 

( — . T — . ._„ . - __„ — - — . _„ 1 

Systeir Response 

Explanation of Response 

f ., 

The last command in the source list was being 
executed, but the system was interrupted. (The 
system is executing privileged code.) The systeir 
cleans up fcefore it prints the underscore. 

Privileged code was interrupted before execution 
of last command in the source list was started, 

Nonprivileged code was interrupted; the processing 
can be resumed if the interrupted source list has 
not completed execution. 
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to ATTENTION 
(underscore) 



* (asterisk) 
! (exclamation) 



When the user presses the ATTENTION key while privileged code is execut- 
ing, the system responds with either an underscore or an asterisk. In 
either case, the user cannot resume execution of the interrupted com- 
mand. He gets control in the command mode. If an * is received, the 
user can resume execution of the source list (by pressing the carriage 
return) at the command following the interrupted coirirand, 

When the user interrupts execution of nonprivileged code (the system 
responds with an exclamation), any remaining commands in the source list 
and the status of the interrupted program are saved. After receiving 
the !, the user has several options: 

• He can issue the AEENE command to cancel his task? 

• He can issue the GO command (or press the carriage return) to resume 
processing at the point of interruption; 

• he can issue some valid command (either a system- supplied comirand or 
one of his own making), including direct calls to ncnprivileged 
modules; 

• He can use one of the TSS attention handling conirands, described 
below and in Part III of this took. 

The AEEND command cancels the task and initiates a new task. All pro- 
grams are unloaded; all DENAMEs are released. The user is now in com- 
mand mode (see ABEND command in Part III), 

The GO comirand gives control to the most recently interrupted program at 
the point of interruption (see GO coirmand In Part III), 

When the user follows an attention interruption with some command other 
than AEEND or GO, the previously interrupted program is saved for later 
execution. New command statements are honored. These new commands can 
be interrupted; their status is saved, too. The user can interrupt, and 
save, as many as 10 source lists (commands or programs). If he exceeds 
this number, he receives a diagnostic message. 

There are attention handling commands that allow the user to control the 
processing of interrupted source strings^ These cowmands, described in 
Part III, are listed below: 

• EXIT — bypass current module or program; process next command in 

the source list 

• PUSH — save status of an active program 

• RTRN -- clean up all current source lists 

• STACK — display names of active programs 

• STRING — display modules not vet processed in the current source 

list 

If the user wants to run sections of his code that will not be affected 
by an attention interruption, he can set the attention intervention pre- 
vention switch (AIPS) , as described in Assembler User Macro Instruction . 
When this switch is set, the system does not interrupt the user's pro- 
gram when one attention interruption is received. However, a simulated 
attention interruption is made so that the user can later test the AIPS 
to see where the attention occurred. Setting the AIPS enly inhibits a 
single attention interruption. If a subsequent attention interruption 
occurs, the program stops executing and the user's keyboard is unlocked, 
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Macro instructions in the assembler language alloy the user to supply 
his own attention- interruption-hand ling routines. See also Assembler 
User Macro Instructions. 



CONVERSATIONAL TASK TE<SIf4ATION 

The user ends his conversational task by entering a LOGOFF command at 
his terminal, or he may switch hiss conversational task to nonconversa- 

tional ir-ode (see "Switching Modes ' w later in this section) • 

CONVERSATIONAL TASK 0T1TK!'*' 

The messages producer! by the. system during execution of conversational 
tasks and the responses to cofiomaad sfratonr.ent- execution are printed at 
the user's terminal. Th- ^wiltii of, r * t^^sing during execution of his 
task iray be held in «.i*it;3 s .!*:*• within tiv* ay^teiK The user can examine 
the results of processing- tie can i,-ii*u« th»> LINE? command Cif the data 
set containing the results ia a line &ata •.•■■ot; to obtain a listing at 
his terminal,, or he can issue one of the bulk output commands Csee "Bulk 
Output Commands* in Section 2^ to print or punch the results in nonccn- 
versational mode. Aiwo, '-he nse<: can uu^ dvna;iic I/O facilities in his 
FORTRAN and assembler language programs to obtain these results*, (See 
Assembler programm er's Guide and FORTIlaM ^rog^'arqitj er _' s _Guide« ) 

SYSOUT: This xiridie de.:igiv:*:es the output th*Mt Is produced during execu- 
tion of the user s s task. This output includes the system messages, the 
responses to command execution* and the optional problem program output 
that are produced during execution of a usei:*s task* In conversational 
mode* the information that is ".included in SYSOOT is delivered at the 
user's terminal. The SYSOT/-T for a conversational task is not norirally 
recorded by the system in any form. Since SYSIN (see the defintion of 
this terra under "conversational TVtsk $<\ It: lotion n earlier in this sec- 
tion) is entered and is recorded at tfoo user* s terminal, these two in- 
formation streams are interspersed on ^he v.erminal listing. 



NONCONVERSATI0NA L_,,M0j>j-: 

The non conversational Bicnle o'i -joe rati on ..^ utost useful for tasks that do 
not require the user "s i r s:f3%^ce at The terminal to resolve any problems 
that may arise during ^.sk execution* in this mode, there is no direct 
communication between the system a.ad the user. The command statements 
that direct the system must have been furnished previously as a complete 
sequence, called a ncnconversation^l S1S1B data set Csee below). Any 
system messages resulting from the execution of the task are received by 
the user as a printout, from > he r antral computer installation* 

N0NCONVERSAT10NAL SYSIN DATA SET 

A nonconversational sii-Slli *5af„a set is a series of command statements and 
associated data that are to be acted upon in the sequence in which they 
are presented to the system- The command statements inform the system 
of the actions the user wants performed during execution of his noncon- 
versational task. The user creates his nonconversaticnal SYSIN data set 
in the same way he creates any other type of data. set. He can construct 
it at his terminal, by using the text-editing commands Cor DATA or MODI- 
FY) 9 or he can subra.it. it on punched cards to the system operator for 
entry into the system via the installation's high-speed card reader. 
The data set must be V.SAM * variable-format or fixed-format records) or 
VISAM line # and it must, be cataloged before it can be executed. 
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Each nonconversational SYSIN data set begins with a LOGON command and 
ends with a LOGOFF command, unless the mode of the task is teing 
switched (see "Switching Modes" below). If any private I/O devices are 
to be used by the task, the SECURE command must immediately follow the 
LOGON command. 

Data that is to be read by the user's program during execution may be 
included in the SYSIN data set; this data must immediately follow the 
command that starts execution of the user's prograrr. For FORTRAN data 
sets, the end-of-data record (SEND) must follow the last data record. 

NONCONVERSATIONAL TASK INITIATION 

As in conversational mode, the user must be granted access to the system 
by his system administrator before attempting to communicate with the 
system. Then, the user can initiate his nonconversational tasks by one 
of these methods: 

1. After the nonconversational SYSIN data set has been cataloged, the 
user initiates his task by issuing the EXECUTE command, which must 
be entered from the terminal as part of his conversational task; 
however, EXECUTE can he given within the SYSIN data set of a non- 
conversational task to initiate another nonconversational task. 

2. The user may start his task conversationally and then switch the 
mode to nonconversational by using the BACK command (see "Switching 
Modes" below) . 

3. By preparing his nonconversational SYSIN data set en punched cards, 
the user can submit it to the system operator for processing. The 
data set is cataloged, and execution is requested when it is read 
in by the system. The user must make certain that any data sets 
referred to by his nonconversational task are submitted to the sys- 
tem before the SYSIN data set (see Appendix 3). 

Regardless of which method of nonconversational task initiation is used, 
the user's task is assigned a batch sequence number (BSK) by the system 
and is executed as soon thereafter as space is available for it. The 
results are unpredictable if a data set is used by a conversational task 
before a nonconversational task is finished with it. 

The BSN is a four-digit decimal number that identifies the user's non- 
conversational task. The user must use this nuirber when he wants to 
cancel (via the CANCEL command) a previously initiated ncnconversaticnal 
task. 

NONCONVERSATIONAL TASK EXECUTION 

During execution of a ncnconversaticnal task, there is nc interaction 
between the system and the user. The system analyzes, in the order pre- 
sented, each command of the nonconversational SYSIN data set and 
executes every valid conrmand. If a command is invalid, the systeir 
ignores it and continues reading the SYSIN until either a valid ccnirand 
is read or the task is abnormally terminated. £fter reading and execut- 
ing a valid command, the system proceeds to process the next command, 
continuing until it processes LOGOFF, which completes the task. Resolu- 
tion of command statement elements is identical to that described earli- 
er in this section for conversational execution. 

NONCONVERSATIONAL TASF TERMINATION 

A nonconversational task is terminated in one of four ways: 
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1. When LOGOFF is read, normal termination occurs. 

2. When the user issues the CANCEL command, specifying one of his pre- 
viously initiated nonconversational tasks, that task is eliminated. 
A task awaiting execution can be canceled. 

3. The system terminates a nonconversational task when it encounters a 
situation requiring resolution by the user. Typically, such a 
situation arises when the system must prompt for an omitted operand 
in a command or must issue a diagnostic message that requires a 
user response. Whenever abnormal termination of the user's task 
occurs, a diagnostic message that indicates the reason is printed 
as part of SYSOUT for the task. 

The user can give a response to a system prompt even when his task 
is running nonconversationally. He must default RSVP=Y and he roust 
provide the response in his SYSIN data set. When the prompt is is- 
sued, the response is used and the task is not terminated abnormal- 
ly. There must be a response for each prompt or the task is 
terminated. 

4. A system shutdown terminates all ncnccnversaticnal tasks. Those 
initiated by PUNCH, PRINT or WT are restarted when the systeir 
resumes operation. No restart is attempted for other nonconversa- 
tional tasks. 



NONCONVERSATIONAL ABEND CONTROL 

The system may terminate a nonconversational task if there is some pro- 
blem that needs to be resolved by a user. Such a case occurs when the 
nonconversational task executes a command that issues a prompt that re- 
quires a response. When this happens, the system terminates the task, 
and diagnostic messages are printed as part of the SYSOUT data set. 

There is a way to control the system's action when this condition 
arises. The user can provide a special data set that receives control 
when his ncnconversational task would otherwise be terminated. He can, 
within his task, define a data set (via DDEF) that is cataloged and that 
contains a series of commands: 

ddef tskabend,vi,dsnamel 

Notice that the DONATE of the data set must be 1SKAEENE. The data set 
must be cataloged. Rather than terminate a nonconversational task, the 
systeir finds the data set defined with the TSKABEND DDNAME; then, the 
system executes the commands from that data set (the data set should end 
with a LOGOFF command). 

Example : The user has a cataloged data set, named ESNAME1, that con- 
tains these commands: PC?, USAGE, and LOGOFF. In his nonconversational 
task, he defined this data set with the TSKABEND DONATE. Then, when the 
nonconversational task is executing, the system finds that the operand 
of a LINE? command is a nonexistent data set name, NCDS. The systeir 
stops executing the SYSIN data set (the nonconversational source list) 
and begins to execute the commands in the ESNAME1 data set. A diagram 
that represents the flow of control is shown in Figure 1. 
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NONCONVERSATIONAL TASK 


DS NAKE1 


LOGON NICK 




DDEF TSKAEENB,VI,CSNAME1 


PC? 


. 


USAGE 


. 


LOGOFF 



LINE? NODS 



LOGOFF 



Figure 1. Flow of control froir a nonccnvezsational task to a data set 
that continues the task to normal termination 



NCNCONVERSaTIONAL TASK OUTPUT 

The user specifies , by commands in his nonconversational SYSIN data 
sets, the output expected from his nonconversational task. He must 
define the data sets that are to be generated and indicate how they are 
to be output- Other output includes a printout of the SYSOUT data set f 
which is printed automatically ty the system. This data set contains 
any messages issued by the system, interspersed in a listing of the com- 
mands for the task, and may also contain printable data generated by 
problem programs during execution of the task. All tapes, punched 
cards, and listings resulting from the nonconversational task are pro- 
duced only at th< computer center. 

Note: Each SYSOUT data set begins with a message, identifying the ncn- 
conversaticnal task and its originator. 

SWITCHING MODES 

The user can use the EACK command to switch a ccnversational task to a 
nonconversational task. There is no way for him to switch from ncnccn- 
versaticnal to conversational mode. 

The user can switch his conversational task to nonconversational if all 
three , of these conditions exist: 

1. He has entered a nonconversational SYSIN data set and defined it to 
the system. This data set must not begin with a LOGON command 

(however, it must end with a ICGOFF command). 

2. The system has space for another nonconversational task (see "Non- 
conversational Task Initiation" above), If not, the user is in- 
formed, and he may try to switch the mode of operation again later. 

3. The user enters at his terminal a BACK command requesting noncon- 
versational continuation of his task. 

If the system accepts the user's request, it establishes the nonccnver- 
sational task, assigns it a batch sequence number, and eliminates the 
conversational task from the systeir. The user's terminal is then avail- 
able to him, and he can enter a new conversational task with the LOGON 
procedure. 
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SECTION 2: DATA MANAGEMENT 



There are commands that allow the user to manage his data sets. These 
commands are divided into four groups, as follows: 

• Data set management 

• Text editing 

• Data editing 

• Bulk output 

DATA SET MANAGEMENT 

The data set management commands are used to identify data sets; to 
store them in the system and to retrieve them from the system; to share 
them with other users; to copy and erase then; and to define them for 
use in the system. The data set management ccmmands and their system 
functions are shown in Tatle **. 

TEXT EDITING 

iext is edited by using the text-editing commands. These commands mani- 
pulate lines of information that are within an existing region data set 
or line data set, or the commands manipulate lines as they are being 
entered into a region or line data set. With these commands, the user 
can simultaneously create and edit data sets; he can correct, insert, 
and delete lines; he can segment a data set intc regions; and he can 
transfer lines from one data set to another. Also, the user can display 
lines of a data set at his terminal and can nullify previous changes 
that were made by the commands. The text-editing commands and their 
system functions are shown in Table 5. 

GENERAL TERMS 

The following terras are used throughout the discussions on the text 
editor. 

break character 

when the user enters a break character (which can be the system- 
supplied underscore or some user-supplied substitute character), 
the system interprets the statement that fellows as a command. The 
break character allows the user to enter commands when the system 
expects data. However, when the first and second characters of the 
line are break characters, the usual break -character action does 
not take place. Instead, the system replaces the pair of break 
characters with a single break character and processes the line as 
if no break character had been seen. Thus, lines starting with 
multiple break characters can be put into procedures or data sets. 

current line pointer 

is an indicator that is maintained by the text editor. The current 
line pointer (CLP) is set initially to the value of BASE (which 
defaults to 100) for empty regions or empty line data sets, and to 
the first available line in an existing region or line data set. 
The CLP is advanced through the region or line data set as text- 
editing commands are executed, always pointing to the next line to 
be processed. For rules that govern the positioning of CLP, refer 
to Appendix F. 
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j Command | 

I- + 

CATALOG 



CDD 

CDS 
CLOSE 

DDEF 

DDNAME? 
DELETE 
DSS? 
ERASE 

EVV 
FILEDEF 

FILEREL 

JOBLIBS 

LTDS 

PC? 

PERMIT 

POD? 

RELEASE 

RET 
SHARE 

TV 

VT 



Table 4. Data set management commands and their functions 

Function 
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Create or alter a catalog entry for a physical sequential 
data set; alter a VAM catalog entry; create a catalog 
index for a generation data group; or catalog a data set 
as a new generation of an existing generation data group. 

Retrieve DDEF commands , which have been prestcred in a 
cataloged or a defined line data set, and process their. 

Duplicate a data set or a member cf a VPAM data set. 

Closes a user's data sets. 

Define a data set and describe its characteristics to the 

system. 

List DDNAMES. 

Delete one private data set entry from the user's catalog. 

Present the status of cataloged data sets. 

Free direct access storage assigned tc a private or a pub- 
lic data set and remove its catalog entry from the user's 
catalog. 

Catalog private VAM data sets. 

Define a dataset, describe its characteristics, and pro- 
vide the link between TSS and OS/VS datanames. 

Delete a data definition established by a previous FILEDEF 
and disconnect the OS/TSS link. 

Manipulates DDNAMES. 

List data set names f rem a VAM tape. 

Obtain the name, access qualif icaticn, and owner's user 
identification of cataloged data sets. 

Authorize or withdraw authorization of ether users to 
access a user's specified data set. 

Display information abcut members of a VPAM data set. 

Delete a data definition established by a previous DDEF 
command. 

Change the catalog attributes of a VAM data set. 

Allow a user to share data sets belonging tc another user 
who has granted authorization with the PERMIT command. 

Retrieve a data set that was written onto tape via the VT 
command and write the data set into a VAF. volume. 

Copy a VAM data set onto tape as a physical sequential 

data set. 

Copy a VAM data set on direct access storage. 
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j command 
CONTEXT 



Table 

-i 



Text-ed commands aed tlwir functions 



Function 






CORRECT 
DISABLE 
EDIT 
ENABLE 

END 
EXCERPT 

EXCISE 

INSERT 
LIST 

LOCATE 

NUMBER 

POST 

REGION 

REVISE 

STET 
UPDATE 



Replace the specified string of characters within a line 
or range of lines with another specified string of 
characters. 

Change or insert characters in cne or more specified 
lines. 

Remember all modifications made in a data set in order to 
restore it to the original state, if requested. 

Invoke the facilities of the text editor; this command 
must precede the other text-editing commands. 

Remember the most recent modification made in a data set. 
The data set will be restored to the state that existed 
before the last command. 

Terminate processing by PRCCDEF and the text editor, or 

both. 

Insert the specified region or range of lines from another 
place in this data set or from another data set into the 
current data set. 

Delete the specified line or range of lines from the cur- 
rent data set. 

Insert the following lines into the current data set. 

Display the specified line, or range of lines, on the 
user's SYSOUT. 

Search the current region for the specified character 
string. 

Renumber the specified line or range of lines. 

Retain all modifications made in a data set. 

Create a subset of specified lines cf a data set; these 
lines are to be located as an entity known as a region. 

Replace the specified line or range of lines with those 
lines entered after the command or delete the specified 
line. 

Delete changes made to a data set by previous editing com- 
mands; restore the data set to its previous condition. 

Add lines to the current region or data set. 
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In all text-editing commands, where Nl is an operand, except as in- 
dicated in the operand descriptions, the current value of CLP iray 
be specified by defaulting Nl. The value of CLP may be displayed 
by issuing: 

list clp 

hexadecimal constant 

has the form of an X followed by a string that is enclosed within 
apostrophes; the characters in the quoted string must be a digit (0 
through 9) or A, B, C, D, £, or F. There can be no other charac- 
ters within the apostrophes. Some examples ares 

X'Ol* 

X'ABC02 i 
x .. 

line data set 

is a VISAM data set that has this record forirat: 

| < 132 bytes maximum > | 

j record | line | | j 

1 length | number | flag | text | 

L J. . X . — L " J 

< — 1| bytes — > < — 7 bytes — > < — 1 byte — > 

Key 

The record length field, which appears only in variable-length rec- 
ords, and the flag field are used only by the system. Total record 
length, defined in the DCB sutoperand of the DDEF command, cannot 
exceed 132 bytes. The beginning of a line data set record is the 
first digit of the line number. The relative key position is four. 

line number specification 

is a number that represents a line. This number can be expressed 
either as an absolute (for example, 200 specifies line 0000200) or 
as a relative value (positive or negative). A relative value indi- 
cates a number of lines distant from CLP (for example, +2 identi- 
fies the second line after CLP, and -1 designates the line iniredi- 
ately preceding CLP) . 

Nl and N2 are the keywords for the beginning line number and the 
ending line number operands that are used with certain commands 
(for example, CORRECT, INSERT, LIST, REVISE). The values specified 
for Nl and N2 are resolved by the system according to the following 

rules: 

1. When the operands are in the range of line numbers that exist 
in the current region or in the data set being processed, the 
system uses the value that was specified. 

2. The following items discuss the commands except INSERT and 
REVISE. 

a. If Nl is a number greater than the last line of the current 
region or of the data set, or if N2 is a number less than 
the first line of the current region or of the data set, 
the command is canceled and a diagnostic message is issued. 

( Note ; The diagnostic messages you get depend on the values of BREVITY 
and LIMEN. See "Implicit Operands" in Section 6 and Appendix C.) 
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b. If Nl and N2 are two different numbers and are within the 
limits of the current region or of the data set, tut the 
line does not exist, the system uses the next-higher - 
numbered line for Nl and executes the coirmand and uses the 
next- lower-numbered line for N2 and executes the command, 

c. If Nl and N2 specify the same line and the line does not 
exist, the command is canceled and a diagnostic message is 
issued, 

3. The following items discuss the INSERT and REVISE commands. 

a. An INSERT command is executed when Nl is outside the range 
of the data set or current region? Nl is within the range, 
but does not exist; or Nl is within the range but, with the 
increment (assumed or specified) , points to a line that 
does not exist. 

b, A REVISE command is executed if the line that is specified 
does or does not exist within the data set or even if the 
line is outside the limits of the data set. 

Example ; The following data set exists. The accompanying commands 
shew what the system prints out after it resolves the values you 
specify for Nl and N2. (This user has set LIMEN=I.) 

0000100 Nl AND N2 ARE WITHIN THE RANGE 
0000200 Nl IS GREATER THAN THE LAST LINE 
0000300 N2 IS LESS THAN THE LAST LINE 
0000400 N1=N2, BUT THE LINE DOES NOT EXIST 
0000500 Nl NOT= N2 AND THE LINE DOES NOT EXIST 
00 00600 INSERT CCtftfAND TESTS 
0000700 REVISE COMMAND TESIS 
0000900 LINE 8 DOES NOT EXIST 
0001000 LAST LINE OF THE DATA SET 

User : edit linetest 
Sys,User : list 100,200 

0000100 Nl AND N2 ARE WITHIN THE RANGE 

0000200 Nl IS GREATER THAN THE LAST LINE 

CZASP100 CLF SET TO 0000300 

excise 1500 

CZASL500 Nl, 1500, BEYOND END OF DATA SET OF REGION 

excise 100,50 

CZASL600 N2, 50, LESS THAN START OF DATA SET OR 
REGION 

excise 50,200 

list 50,200 

CZASL600 N2, 200, LESS THAN START OF DATA SET OR 

REGION 

excise 900,1500 

list 800,1500 

CZASL500 Nl, 800, BEYOND ENE OF DATA SET OR REGION 

Note : This user reinserted the deleted lines (100, 200, 900, 
1000). 

list 800, last 

0000900 PREVIOUS LINE 8 DOES NOT EXIST 

0001000 LAST LINE OF THE DATA SET 

CZASP100 CLP SET TO 0001100 

list 800,800 

CZASP200 CANCELED: RANGE INVALID 

list 800 
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CZASP300 CANCELED-. LINE 800 DOES NCT EXIST 

insert 100 

CZASG100 CANCEIED: LINE 0000 200 ALREAEY EXIS1S 

insert 100 , 50 

0000150 a new line 

CZASG050 COMPLETED: LINE 0000200 ALREADY EXISTS 

insert 700 

0000800 ^insert 1500 

0001500 ^revise 50 

(Note ; The user issued the following commands — REVISE 50,50? 
REVISE 200; REVISE 800; and REVISE 1500. In each case the system 
responded by prompting with tte specified line number,) 

1500_lcgoff 

offset 

in three commands — CONTEXT, LIST, and LOCATE — the user can spe- 
cify starting and ending character positions in the Nl and N2 
operands. He does this with an one- to four-digit absolute decimal 
nuirber, enclosed in parentheses, and immediately following the line 
number. The first character of data is at position 1. For exam- 
ple: Nl=700(4) specifies the fourth character of line 700? K2=900 ( 
14) specifies the fourteenth character of line 900. 

prompting 

is done by the text editor following entry of a command that 
expects data (for example, EDIT, REGION, FEVISE, INSERT). When the 
LINENC operand in the user profile has a value of Y, the text edi- 
tor issues a line number when it expects data? if LINENO=N, the 
keyboard is unlocked, but line number prorating does not occur. 
Following execution of a command that does not expect data ( for ex- 
ample, STET, NUMBER, EXCISE) or that completes its execution, the 
text editor prompts the user for a command statement by issuing an 
underscore. 

The user can inhibit line number prompting by issuing 

default lineno=n 

before or during text editing. Initially, LINENC=Y. 

Even when line number prompting is inhibited, the text editor 
inserts the line number in the key of each data set line. 

region 

a line, or contiguous group of lines, whose numbers are prefixed by 
the saire region name. The region of a data set Is treated by the 
text editor as an entity? region names label a contiguous subset of 
lines for identification purposes. The length of the region naire 
is determined by the value of the REG SIZE operand in the user 
profile. 

The text editor automatically reorganizes the regions of a data set 
into alphabetically ascending order, by region name. 

This is a sample region data set that was created by using the text 
editor: 



Region Name Line No. Data Line 

a 0000100 Text of line number 1 of region "a", 

a 0000200 and this is next line of region "a"* 

a 0000300 this is end of region "a". 

a 1 ir est 0000100 This line starts new region, "almost ", 

almost 0000600 where increment has been specified as 500 , 

almost 0001100 so line numbers advance by 500. 

next case 0000100 Although NEXTCASE was the first region name 

nextcase 0000200 entered, the text editor automatically 

next case 0000300 alphabetizes regions. 

swan 0000100 Initial allowable range of region name 

swan 0000 200 is from to 2*»4 characters. 

region data set 

is a VISAM data set that has this record forirat: 



I < 


256 bytes maximum 


>, 


j record 
1 length 

< — 1* bytes- 


j region | line [ j 
| name | number | flag | 

-> < — 7 bytes--> < — 1 byte — > 


---*" ' l,IIIL """ - ■"-! 
' I 

text | 

j 



The record length field, which appears only in variable-length rec- 
ords, and the flag field are used only by the system. The regicn 
name, specified by the user, can be from to 244 bytes long j its 
length is defined in the DCB suboperand of the DDEF command. Total 
record length, also defined in the DCB suboperand, cannot exceed 
256 bytes. The beginning of a record in a region data set line is 
the first character of the region name. The relative key position 
is four. 

string constants 

are either normal or quoted. A normal string is a contiguous group 
of characters that begins with any nonblank character except an 
apostrophe and ends with the last nonblank character prior to ei- 
ther a coirma, equal sign, or semicolon that is external to all 
pairs of parentheses in the string. A normal string may also end 
with the last nonblank character prior tc the end cf a line that 
does not have a continuation character. For normal strings, all 
EBCDIC characters are valid except a comma, equal sign f or semico- 
lon that is external to all pairs of parentheses in the string. 
For example. 



A+E; 


(C,D), 


itains 


these 


A+E 




(C f D> 




A 1 EC 


•E' 


C 




D 




A B 




A(E,C)E 



Pl'BC'D*, C=D,A B, A(B,OD 



A quoted string is any character string that is enclosed in apos- 
trophes, within which all other apostrophes are doubled. All EBCD- 
IC characters are valid. The representation of a quoted string af- 
ter it is processed by the system does not have the apostrophes; 
doubled apostrophes are replaced by single apostrophes. For 
example: 
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External Representation Internal Representation 

•$3.80 f $3.80 

•hO* ARE YOU' HOW ARE YOU 

•I ' f M FINE* I'M FINE 

transaction table 

the text editor records the changes to a data set in this table; 
additions are noted in one set r deletions in another. The user can 
nullify the changes that are recorded in the transaction table (see 
"DISABLE, ENABLE, EOST, and STET Commands,* in Part III). Normal- 
ly, when the editor is invoked, the transaction table is not ac- 
tive. To activate it, the user issues 

default trantat=y 

before invoking the editor. As long as TRANTAB=Y, the transaction 
table is active. 



INVOKING THE TEXT EDITOR 

The EDIT command invokes the text editor, initializes the transaction 
table if TRANTAB=Y, and invites th€ user to enter a command or a line of 
data. Unless preceded by a user-issued DDEF command, EDIT issues a DDEF 
that has these values: 

DDNAME=EDDN, DSORG=VI or VP , DCB=CFKP=4, LRECL=132, RECFM=V, KEYLEN=XX) 

The value of DSNAME is supplied by the user in the EDIT command? the 
value of KEYLEN is determined by EDIT by adding seven to the value of 
the REGSIZE operand that exists in the user profile. Fcr example, if 
REGSIZ£=2 f then KEYLEN=9. The text editor can be used to create a data 
set. The two types of data sets that can be created are a region data 
set and a line data set. 

Creating a Region Data Set 

The system- supplied value for the REGSIZE operand is 0, the key length 
(KEYLEN) is 7, and a line data set is assumed. The user can change the 
value of the REGSIZE operand by specifying a number from to 244 . The 
REGSIZE operand governs the maximum length for the name of a region data 
set. The EDIT command can be used to specify both the value of REGSIZE 
and the name of a region in the region data set that is to be created or 
modified. If the user issues: 

edit regds,rname=regnam,regsize=8 

the system assumes that he wants to operate on the region named REGNAM 
in data set REGDS. The maximum length of region names in REGDS is 8 
characters. The system then prompts (with a line number, if the LINENO 
operand is set at Y, the system-supplied value) for the first line in 
the region. The sequence of activity is as follows: 

User : edit regds,rname=regnam,regsize=8 

System : 0000100 

The system prompts for data for REGNAM, and the user enters the data. 
For example: 



Sys,User : 0000100 this is data 
Sys # User : 0000200 for region regnam 
Sys : 0000300 
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The user wants to review these lines , but the systeir has printed the 
next line number. The user types in the break character (underscore) 
and a command, as follows: 

Sys,User : 0000300 _list 0,last 
Syste ir: REGNAL 0000100 THIS IS DATA 

REGNAfc 0000200 FOR REGION REGNAK 

The system displays the lines of the region and proirpts for a comnrand. 
Notice that the name of the region precedes each line number. In a 
region data set, the region name and the line number form the key for 
each line in the region. The user wants to terminate editing so he 
types the END command following the break character, as follows: 

Sys,User : _end 

The user is now in command mode; he must reissue the EDIT command to 
continue processing his data set. Had the user not issued the LIST com- 
mand at line 300, he could have terminated editing there: 

Sys,User : 0000300_end 

The break character is used when the system expects data (for example, 
it has issued a line number), and the user wants to enter a command, 
nad the user not entered the break character, the command at line 300 
would have been put in the data set as data? it would not have been 
executed. 

Note: Once a region data set has teen created, the user cannot alter 
the maxiiruir region name length (REGSIZE) for that data set. If he wants 
to allow region names of greater length, he must erase the data set and 
re-create it. Of course, while he is doing this, the user can hold the 
contents of the data set in a temporary data set. 

Creating a Line Data Set 

Unless the user changes the initial system value of REGSIZE, the EDIT 
command assumes a line data set; if LINENO=Y, the user receives a line 
number prompt : 

User : edit lineds 
Systeir : 0000100 

Since LINEDS was a new data set, the system proirpts with line number 
100. The user can enter data, and the system responds with the next- 
highest line number, in increments of 100. To enter a command when the 
editor expects data, the user precedes the command with a break 
character: 

Sys,User : 0000100 this is a line data set 
0000200 with only two lines 
0000300 _end 

EDITING DATA SETS 

The text editor can be used, also, to edit data sets and to create and 
edit data sets simultaneously. Whether the data set is line or region 
makes little difference in the procedure used. For the remainder of 
this discussion, a region data set is assumed. 

The editing tools available to the user are extensive. The example that 
follows is by no means complete. The user should refer to individual 
command descriptions in Part III for more details. 
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Example : Previously, the user created REGDS as a region data set with 
one region, REGNAM. The value of REGSIZE was set tc 8 for the data set. 
Now, whenever the user edits PEGDS , the systeir expects him to treat the 
data set as a region data set with a maximum region name length of 8. 
The user can edit region REGNAM this way: 

User : edit regds r regnam 

The region exists so the system responds by typing an _: 

Syste n: _ 

Two lines of data that were created earlier exist in the region. Now, 
the user wants to create a new region called FIRSTONE: 

Sys,User : region fir stone 

The system prompts with line 100, since this is a new region. The user 
enters data into region FIRSTONE, and then he terminates the editing 
procedure with the END command. 

Sys f User : 0000100 notice regsize is 8 
0000200 and lineno=y 

0000300 so far only two regions exist 
0000400 _end 

When the user again edits this region he is prompted with an underscore. 
Assume now that the user wants to add two lines between lines 200 and 
300 in increments of 25: 

Use r: edit regds ,f irstone 
Sys,User : ^insert 200,25 

0000225 add these two lines 

0000250 between 200 and 300 

0000275 

To continue adding lines in increments of 100 following line 400, the 
user issues another INSERT corrmand , preceded by a break character: 

Sys, User: 0000275 _insert 400 

OOOOUyO more data can be entered 

0000500 and the system continues to prompt 

0000600 with line numbers in increnents cf 100 

0000700 

To change line 300, the user types in, after the line number: 

Sys, U ser: 0000700 ^context 300 , , only , just 
Syste ir: _ 

To check his results, the user enters: 

Sys , User: list 30 

Systerr: FIRSTCNE 0000300 SC FAR JUST TWO REGIONS EXIST 

CONCATENATING INPUT RECORDS 

The text editor accepts 256-byte records in a region data set. However, 
most input devices cannot deliver records of this length. Therefore, 
the input lines must be broken for entry at the input device and then 
concatenated by the system. 

If the user wants to concatenate input lines, he must set the implicit 
operand, CCNREC, to Y (the system-supplied default value is N) . When 
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the user enters a line of data, and the last nonblank character of the 
line is the concatenation character (the system-supplied character is a 
colon) , the system prompts with a colon and unlccks the keyboard so that 
the user can enter the rest of the line. The system joins the twc lines 
to make one record; the first character of the second line replaces the 
concatenation character in the first line. Fcr exairple: 

User : default conrec=y 

S ys,User : edit data set l,rname= joe 

0000100 this line is : 

: continued with the concatenation character 

0000200 _end 

No line number was issued for the concatenation line; the line has be- 
come part of line 100. Also, a space was left between the last text 
character in line 100 , and the concatenation character. If this space 
were not there, the two lines would be joined with no space between "is" 
and "continued." The content of line 100 is: 

"this line is continued with the concatenation character" 

The user can concatenate records for line data sets as well as for 
region data sets. He must remember, however, that the maximum record 
length for a line data set is 132 characters; for a region data set, it 
is 256 characters (including the region name). 

For a line data set, concatenation works the same way. If the user does 
not want the colon as a prompt (as is done after line 100 in the example 
above), he sets CONPRKPT=N. For example: 

User : default conrec=y ,conprmpt=n 
Sys,User : edit dataset2 

0000100 this line is : 

continued 

0000200 _list 
System : 0000100 THIS LINE IS CONTINUED 

_end 

The system unlocks the keyboard so that the user can enter the conca- 
tenation line. 

Caution : If the concatenated record length exceeds 132 characters for a 
line data set, or 256 characters for a region data set, the 132nd or 
256th character is replaced by a ccntinuation character (the systeir- 
supplied character is a hyphen). The user receives a diagnostic message 
stating that truncation has occurred. The message contains the last 
five characters, entered before the record length was exceeded, and the 
continuation characters. 

ENTERING HEXADECIMAL DATA 

When using the text editor, the user can enter data in hexadecimal nota- 
tion as well as in character notation. To enter data in hexadeciiral 
notation, the user precedes the data with a letter X followed by a per- 
cent sign (X% ) . These characters, the system-supplied default for the 
HEXSW implicit operand, indicate that the data that follows is in hexa- 
decimal notation. The user follows the X% with a string of hexadecimal 
data. 

0000100 x*clc2c3 

The x% iray occur anywhere in the data line: 

0000100 defx%clc2c3 
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All characters following the XX on the data line are treated as hexade- 
cimal input until the end of the line or until a nonhexadecimal charact- 
er is entered (hexadeciiral characters are the nuirbers 0-9 and the let- 
ters A-F>. When an uneven number of hexadecimal characters is entered, 
the system truncates the line to the last even character position i 

0000100 x%clc2c3c 



is truncated to 

0000 100 stele 2c 3 

and a message is issued to inform the user cf the truncation. 

The processing is the same for the EDIT, REGION, INSERT, REVISE, UPDATE, 
LCCJVTE, and COHTEXT coirirands. see the LIST and CORRECT command descrip- 
tions, in Part III, for special considerations when using LIST and 
CORRECT. 

Motes The x% symbol is never put into the data set? it merely tells the 
systeir that hexadecimal data follows. 

Exair plet This example shows how to use text-editing commands with hexa- 
decimal input; the LIST command, and the CHAR operand, are used tc dis- 
play the results of the operations. 



User s 
S ys« User s 



System s 



edit hexdata 

0000100 atcx*ala2a3a4bl 

0000200 xflfaffcfcfdgal 



0000300 _list 
0000100 AECstu 
0000200 GAL 



(hexadecimal input ceases 
with the first nonhexadecimal 
character, namely G) 

(unprintable hexadecimal 
characters are ignored on 
output when CHAR is defaulted 
to C> 



User ; list char=h 
System s 0000100 C1C2C3A1A2A3A4B1 
0000200 FAFEFCFEC7C1D3 



(If CHAR-H, all data is 
printed in hexadecimal 

format) 



Users 
System s 

User ; 

System s 



User s 

System s 

User s 

System s 



list char=m 
0000100 AECAlStuBl 
0000200 FAFBFCFE GAI 
insert 300 



(If CHAR=M, all unprintable 
hexadecimal characters are 
printed as entered, and they 
are underscored) 



0000300 hex data f cllowsx%alb2cffda5 

0000400 _list 300 

0000300 HFX DATA FCLLOWSv 

list 300,char=h 

0000300CflC5E7li0C4ClE3ClH0C6!:6E3r3E6E6E2AlB2CFFDA5 

list 300,char=m 

0000300 HEX DATA FOLLOWS Al £2 CFFrv 



USING THE TEXT EDITOR 

•fjp^rediting commands can be issued only after EDIT or PROCDEF has been 
issued. Invoking the text editor does not, however, limit the user's 
access to the command system. He can issue any command while the editor 
is active. 

Example s The user wants to write and compile a FORTRAN program. Be 
esters these commands: 
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default lineno=n 
edit source. ftnprog 



To avoid confusion when entering FORTRAN statement numbers, the user has 
suppressed line number prompting. Following EDIT, his keyboard is 
unlocked. The input stream is as follows: 

Sys,User : a=0.0 
b=17.9 
d=a*b 

write (2,5)d 
5 format (flO. 6) 
stop 
end 

The END statement in the last line is a FORTRAN statement. To terminate 
text editing, the user must issue the END command, preceded by a break 
character. To compile this program, he enters the compiler call, the 
name of the program, and Y to indicate that the program is cataloged: 

ftn ftnprog,y 

The program is compiled. He then enters, following the system prompt 
for a command statement, a direct call to execute his program: 

Svs,User : ftnprog 
System : 0.000000 

TERMINATED; STOP 

since the editor is still active, the user can change his source program 
with editing commands. He enters: 

User : revise 100,200 

REVISE deletes the specified lines and requests replacement lines by 
unlocking the keyboard: 

Sys,User : a=11.0 
b=14.0 
List 0,last 

Since LINEN0=N, the system responds to the LIST ecu rr and by printing the 
lines without line numbers: 

System : A=11.0 
B=14.0 
D=A*B 

WRITE (2,5)D 
5 FORMAT (FlO. 6) 
STOP 
END 

Following execution of LIST, the system prompts for a command statement. 
The user can recompile and reexecute his program and can make additional 
alterations. To write another program, he issues another EDIT command. 
To terminate editing, he issues END. 



DATA EDITING 

The data-editing commands are used to build and edit VSAM and VIS AM data 
sets. These commands are not as flexible as those of the text editor. 
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The data-editing commands and the system functions they request are 
shown in Table 6. 



Table 6. 



Data-editing commands and their functions 
Function 



jconmandj 

[DATA (Build a VSAM or a VISAW line data set. 



— 1 
! 



| LINE? | Obtain lines from a line data set cr froir a language processor 
| j listing data set. Print the lines on SYSCUT. 

I ! 

(MODIFY | Insert, delete, or replace lines in VISAM data set or create a 

| (VISAM data set. 

L J. 



SOURCE INP UT 

The system expects source input to follow certain coirnands, for example, 
DATA, EDIT, MODIFY, PLI, and PROCDEF. An operand, SYSINX, indicates 
whether the source input is expected from SYSIN or from a source list. 
If SYSINX=G (this is the system default value) , the system expects tc 
get input from SYSIN, which is either the terminal for a conversational 
task or the SYSIN data set for a ncnconversational task. If you change 
this value to SYSINX=E, the system expects to get input from the source 
list; and if the source list is empty, the system goes to SYSIN for 
input. If SYSINX=L, the system goes to the source list only for input. 
(Example 3, oelow, shows how to use SYSINX^L. Refer to "Implicit 
Operands" in Section 6 and to Appendix C for the possible values of 
SYSINX.) 

If the coirnand (for exairple, EDIT) is executed from a PROCEEF, you may 
have created the expected data as part of the PROCDEF. The data iirmedi- 
ately follows the command that expects the data. Then, to indicate that 
the input is to be taken from the source list, you must issue the 
command 

DEFAULT SYSINX=E 

before issuing the command that expects the data. If the source list is 
empty when SYSINX=E, the system goes to SYSIN for input. The exarrples 
shown below give some uses of SYSINX. 

1. The following PROCDEF adds lines of data tc an existing data set. 

User ; procdef addata 

Sys,User ; 0000100 param DS=$1,$2 , $3 ,$4, $5, $6 

0000200 default sysinx=e 

0000300 edit $1 

0000350 insert last 

0000400 $2 

0000500 $3 

0000600 $4 

0000700 $5 

0000800 $6 

0000900 end 

0001000 default sysinx=g 

0001100 end 

When the PROCDEF is invoked (fcy entering AEDATA), the values 
entered for the parameters $2, $3, $4, $5, ana $6 are treated as 
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input to the EDIT command- The values are added tc the data set 
named $1. 

2. For a batch job, a user keypunches a card that contains a PROCDEF 
c orr it and for AD DATA and a series of other commands that are 
separated by semicolons. Other cards in the deck contain input for 
PROCDEF Y. Here, SYSINX=E. 

User : procdef addat a; excise 0,last; end; procdef y 
param $1,$2,$3 
if 9 $l 9 = 9 n 9 : set a=$2 
if ■$1 , * , \- set a=$3 
_end 

If SYSINX=G in this example, the second, third, and fourth cards 
are net executed as input for the PROCDEF named Y. Rather, they 
are taken as input for ADDATA. The system attempts to execute the 
EXCISE and END commands after ADDATA has been created, but it can- 
not because there is no active processor. (A diagnostic is 
issued.) 

3. If SYSINX=L, the system goes only to the source list for input* 
The following PRCCCEF calls the text editor, and it contains a null 
line (line 400) as input to the editor. 

User ; procdef nick 

Sys,User : 0000100 default sysinx=l 

0000200 edit nickds 

0000300 line one of data 

0000400 

0000500 line three of data 

0000600 end 

0000700 default sysinx=g 

0000800 end 

After PROCDEF NICK has been executed, the data set named NICKDS 
will contain a line (line 200) that is null. 

If SYSINX=E, the system ignores line 400. 

BULK OUTPUT 

The bulk output commands (see Table 7) allow the user tc transfer data 
sets from his virtual storage tc output devices other than the terminal. 
The output printer, at the central computer installation, can write data 
sets more rapidly than the user's terminal. fcT and PUNCH put data sets 
on tape and cards, which are not available at the user's terminal. Each 
oulk output command initiates a non conversational task to accomplish the 
data transfer, thereby freeing the user from the need tc monitor bulk 
out pat . 

lable 7. Bulk output commands and their functions 

(Command) Function | 

(PRINT (Initiate printout of the specified data set en high-speed 
I (printer. 

1 I 

(PUNCH (Initiate transfer of the specified data set tc punched cards. 

I 1 

(WT (Initiate writing of the specified data set en magnetic tape, 

j jwith tape in format for offline printing. 
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SECTION 3: PROGRAM MANAGEMENT 



Language-processing and program control commands are used for program 
management . 



LANGUAGE PROCESSI NG 

The language-processing commands enable the user to enter his source 
language data sets and have them processed into object modules. He can 
change and correct source language statements during processing. PI/I 
and any processors supported by the PPLI are exceptions to this 
statement. 

The user initiates source language processing by issuing the command for 
the desired language type. The language- processing commands are listed 
in lable 8. These commands are described in detail in Part III. 

Table 8. Language-processing commands 

> ■ ■ 

1 

(ASM [Assembler language 

(FTN [FORTRAN language compiler 

|LNK (Linkage editor 

|PLI J PL/I language compiler 

(COBOL (COBOL Language Compiler (supported by PPLI) 

(FTNH | FORTRAN H Extended Language Compiler (supported by PPLI) 

[HASM (Assembler H Language (supported by PPLI) 

(PLICPT (PL/I Optimizing Compiler (supported by PPLI) 

U i . : 




A source program is a data set that contains source language statements. 
To be acceptable for language processing, a prestored source program 
must have line organization and must be named SOURCE. name. Source pro- 
grams are automatically cataloged and retained by the system. For PL/I* 
and PPLI supported processors, any legal name is acceptable. 

When source statements are submitted conversationally, or when they form 
part of the prestored SYSIN of a task, a source program is constructed 
with line organization. Each physical line entered into the system, ei- 
ther as a single card or as a single record of the line data set, 
becomes a physical record of the line data set (input length is limited 
to 120 characters). Continuation conventions for combining two or more 
physical records into a single logical statement for a language proces- 
sor are specified by that processor. 

Note ; The compilation of PL/I and PPLI supported programs is not 
interactive; you are not prompted for corrections to the source program. 
PL/ I processing can only be initiated in a task for which the user is- 
sued a LOGON in 24-bit mode (that is, logon userid,,2*»). 



STEPS IN LANGUAGE PROCESSING 

From the user's standpoint, source-language processing proceeds in one 
of four ways. Items 3 and ** below do not apply to ft.- /I' or PPLI 
processing. 

3<4 



1. The task is nonconversational, and the source program is prestored. 
The language processor picks up the source statements, line by 
line, and processes them. No corrections are made; any diagnostic 
messages are written for later reference by the user. 

2. The task is nonconversational , and the source program and the com- 
mands governing language processing appear line by line in the 
SYSIN data set. In this case, a new source prcgrair is created as 
lines are read from SYSIN. A line number is prefixed to each line 
to serve as the key by which the line can be identified. Any diag- 
nostic messages are written for later reference by the user. The 
new program can be modified later. 

3. The task is conversational with a pre stored source program. Suc- 
cessive lines from the source program are read and processed by the 
language processor. Diagnostic messages for a single statement are 
written at the terminal, along with the incorrect line, and the 
user is invited to enter corrections. To indicate to the user that 
he can enter corrections, the system types a pound sign (#) at the 
beginning of a new line, and the keyboard is unlocked. The user 
may enter a correction line, the first part of which must be the 
line number that identifies the line being corrected, followed by a 
comma and the contents of the line. For example: 

SySjUser : #500, dc a (example) 

This correction line is stored in the program, either as an inser- 
tion line or as a replacement line, and the system requests the 
next correction line by issuing #. To delete one or more lines, 
the user types, following #: 

Sys,User : D,line number 

or he can enter: 

Sys,User : D, first line number, last line number 

Such corrections change the source program permanently. To end 
corrections, the user presses the RETURN key in response to #. The 
correction lines are processed by the language processor, and if no 
corrections are required for them, the next line is taken from the 
source program for processing. 

The user can enter other responses following the system's invita- 
tion. (#> to enter corrections: I or C. If the user types I and 
presses the RETURN key, language processing continues without fur- 
ther display of diagnostics or invitations to enter corrections. 
This response is useful when the user determines that he has too 
many errors to correct conversationally. If the user types C and 
presses the RETURN key, he receives all diagnostics, but is not to 
be permitted to make corrections until language processing is 
completed. 

4. The task is conversational, and the user enters his source state- 
ments from the terminal (that is, the source program is not pre- 
stored). The language processor, when ready for a source language 
line, writes a line number at the terminal, inviting the user tc 
enter a line. The line the user types is stored in the source pro- 
gram being created and is alsc passed to the language processor. 
The user can modify previously entered statements by typing after 
the system-issued line number: 

Sys,User : 0000500 %line number modification 
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The modification the user types in after the comma is his insertion 
or replacement line. He can delete a line or lines by typing after 
the system-issued line number: 

Sys,User : 0000600 % D f line number 
or he can enter: 

Sys,User : 0000700 % D, first line number ,last line number 

The % indicates to the system that a modification follows. When 
the user enters the next source line that is not prefixed by % 9 the 
previously collected modifications are sent to the language proces- 
sor, and the line is stored in the source program. This line is 
picked up when the language processor has finished working on the 
modifications. 

If the user modifies a statement that has already been handled by 
the language processor, compilation restarts automatically. For a 
more detailed description, refer to Assembler Programmer's Guide , 
FORTRAN Programmer's Guide , and Linkage Editor . 

When the language processor issues a diagnostic message, the con- 
versational user is prompted with # to enter corrections. He can 
enter insertions, replacements, and deletions, as described for a 
conversational task with a prestored source program. (See Item 3, 
above.) He is prompted for corrections until he presses the RETURN 
key as the response tc the # request. At that point, he is invited 
to enter his next source statement line. 

The language processors display the incorrect line. However, when the 
incorrect line is part of a continuation line, only the last part of the 
line is displayed; this part may net contain the error. If the user 
wants to see the entire contents of the line, he: 

1. Presses the ATTENTION key to interrupt source language processing; 

2. Invokes the text editor and reviews the line in question; 

3. Issues GO and resumes processing. 

When the entire source program has been collected, the language proces- 
sor finishes its analyses of source statements and may issue more diag- 
nostic messages. In FORTRAN or assembler language and linkage editor 
processing, the processor asks the conversational user if he wants tc 
make modifications and restart or if he wants to continue processing. 

When the user wants to continue, the next phase of the language proces- 
sor is executed. If no errors are found that prevent the processor from 
producing an object program module, the user is informed. 

Finally, the object module is stored in the user's library (USERLIB), 
unless he has defined another job library. If the object module is to 
be stored in another jot library, this library must be defined by the 
user in his current task before he initiates source language processing. 
For the FORTRAN or assembler user, this library must be his most recent- 
ly defined library. Supplementary macro instruction libraries, used 
during assembly, must also be defined before language processing is ini- 
tiated. For additional information concerning definition of these 
libraries, see Assembler Programmer's Guide or FORTRAN Programmer ' s 
Guide . The linkage editor places the object module in the libraxy spec- 
ified in its input operands. For additional information, see Linkage 
Editor. 
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Express Mode : You can use express erode to compile or assemble more than 
one program or to request more than one linkage editor function withcut 
repeatedly entering the FTN, ASM, or LNK commands and operands. (PL/I 
uses the continue function to achieve the same result.) See the appro- 
priate OS/VS language programmer^ guide for similar options for program 
product languages supported by IFLI. 

You set LPCXPRSS=Y in your user profile before invoking the language 
processor. If the task is nonconversational, the language processor 
reads the next record from SYSIN, following the completion of language 
processing. If the task is conversational, the system prompts you to 
enter the module name. The language processor assumes the same options 
for the next scurce program entered as those specified when the ASM, 
FTN, or LNK command was last specified. To terminate language process- 
ing, you can enter a break character followed by a command or you can 
interrupt the language processor when you are prompted to enter the 
module name. To initiate language processing again, enter the language- 
processing command and operands, but note that you are still in express 
mode (even though a system message said that express mode was 
terminated . ) 

You can interrupt the express mode by pressing the ATTENTION key. If 
you want to terminate express mode, set LPCXPRSS=N and issue a GO com- 
mand, as follows; 

default lpcxprss=n 

go 

The compilation, assembly, or linkage editing of the interrupted program 
is completed, and control is passed to the coirirand system. However, 
when the processor encounters an error in the specification of a nodule 
name, a diagnostic messacre is issued, and language prccessing is termi- 
nated. .Express mode is still active until LPCXPRSS=N. 

Listing D at a Sets 

The user has complete control of the listings that are printed. The 
system action for the listing data set varies, depending on whether the 
symbol given as the module name has been previously used. When this 
assembly, compilation, or link-edit is the first cne in which the symbol 
is used, the system establishes in the user's catalog a generation data 
group (called LIST. symbol ) and maintains two generations. The system 
also specifies that when the number of generations exceeds two, the old- 
est generation is to be erased. When the listing data set for the cur- 
rent run has been produced, the system catalogs it and makes it a new 
generation of the LIST. symbol generation data group. 

When the symbel has been used previously as a module name, the system 
adds the listing as a new generaticn to the existing generation data 
group. For example, the third listing data set for a given symbol 
oecomes the latest generation (0); the second listing becomes the (-1) 
generation; and the first listing is erased. 

The user can change the number of generations that are maintained in the 
generation data group associated with a given symbol. Assume he has 
oeen working with a module called tfYPROG, and that he has two genera- 
tions in his LIST.MYPROG generation data group. He can change the num- 
ber of generations maintained in LIST.MYPROG. 

Examples : 
1. Catalog the two generations as separate data sets (for this exam- 
ple, MYPROG1 and tfxPRCG2). 

catalog list.myprog (0) ,u, ,myprogl 
catalog list .myprog (-1) ,u , ,myprog2 
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2. Delete the system-defined generation data group, LIST.MYPROG. 

delete list.myprog 

3. Define a new generation data group called LIST.MYPROG with five 
generations, remove the oldest generations, and erase them. 

catalog gdg=list.myprog,5,o,y 

4. Add the two temporarily cataloged generations to the new 
LIST.MYPROG generation data group. 

catalog myprog2 ,u , ,list.myprog(+l ) 
catalog myprogl,u, , list.myprog (4-1) 

After the second CATALOG command is issued, MYPRCG1 becomes the 
latest CO) generation, and MYPR0G2 becomes the (-1) generation; 
three more generations can be stored before MYPR0G2 will be erased. 

To obtain a printout of the desired listings after language processing, 
the user issues a PRINT command with a data set name: 

LI ST. symbol (0) 
for the latest listing or he issues: 

LIST.symbol(-l) 

for the last previous listing, if two generations were specified. 

The user can let the automatic erase logic associated with the genera- 
tion data groups remove his unwanted listings, cr he can issue the ERASE 
command or the ERASE option on the PRINT command to remove one or more 
generations. (Refer to the descriptions of these ccnirands in Part III.) 

Programming Notes : The user can create source data sets and correct 
assembly or compilation errors with the text- editing commands. By leav- 
ing the bext editor invoked while he assembles or compiles a program, 
the user can make changes after assembly or compilation is complete. 
Refer to Section 2, Text Editing, for a description of the text editor. 

PROGRAM CONTROL 

Program control system (PCS) commands provide the user with great flexi- 
bility for interacting directly with the execution of his programs. 
These commands, and the system functions they request, are shown in Ta- 
ble 9. 

Caution : Some of these commands are restrictive in the class of virtual 
storage they reference. The user may use all of these commands to ref- 
erence his control sections that have been assigned to private read/ 
write storage. However, a control section that has the read-only attri- 
bute may be referenced in all the commands except SET. Public nonprivi- 
leged CSECTs may be displayed (via DISPLAY) or dumped (via DUMP), but 
the user cannot reference a public CSECT in a SET, AT or TRAP command. 
A user may never symbolically access nonprivileged or privileged system 
CSECTs. Any violation of these restrictions will result in a diagnostic 
message and rejection of the command. 
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However, if a CSECT having a system or privileged attribute is loaded 
fron USERLIB or from a jot library (JCBLIE), all attributes are ignored. 
Private read/write storage is assigned to the CSECT, and the systeir does 
not recognize any of the above restrictions. 

Caution : PCS commands are generally more difficult tc use with PI/I 
programs or programs generated by PPLI supported compilers. Since nc 
ISD is produced by any of these processors, syirbolic names may not be 
ased. In addition, actual hexadeci raal displacements from the module/ 
procedure name are difficult to calculate since the name refers tc the 
actual entry point of executable cede. This entry point may be at vari- 
ous displacements in the object code although the listing might indicate 
displacement zero. However, once the correct instruction is located in 
the object code, an &T statement and most other PCS statements may be 
used. Complicated PCS statements should be avoided. 

The user can employ PCS commands to: 

• Explicitly and implicitly load and unload his programs. 

• Initiate execution of his programs. 

• Request output of the contents of data fields, instruction loca- 
tions, and registers at any time during execution of his program. 

• Modify instructions and variables within his program at any stage of 
execution. 

• Specify locations within his program where execution is to be 
stopped or started; when execution has been stopped, the user can 
issue additional coirmands before he restanes execution. 

• Establish logical (that is, true or false) conditions that allow or 
inhibit execution of other commands. 

• Perform arithmetic computations. 
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Table 9, 
} Command | 
AT 

BRANCH 

CALL 
DISPLAY 

DUMP 

GO 
IF 

LOAD 

QUALIFY 

REMOVE 
RUN 

SET 

STOP 

TRAP 
UNLOAD 



PCS commands and their functions 
Function 



Inform the user when execution of the program has reached a 
designated instruction location or make the statement that 
follows this command dynairic. 

Dynamically change the control path cf a program or resume 
execution at a different location. 

Load and pass parameters to an object module and execute. 

Present the values of variables , the contents cf machine reg- 
isters, and the specified virtual storage locations to user's 
SYSOUT. 

Present the values of variables, the contents of machine reg- 
isters, and the specified virtual storage locations to the 
task's PCSOUT data set. 

Resume execution of a previously interrupted program, 

Make the following statement conditional. 

Place an object module in the user's virtual storage without 
initiating execution. 

Allow the user to designate, before referring to group of 
internal symbols, the program in which the specified symbols 
are defined; thereafter, there is no need to explicitly quali- 
fy symbols. 

Selectively delete the previously entered dynamic statements 
(that is, those that include AT). 

Initiate execution cf the loaded object module; resume execu- 
tion cf the interrupted program; load and initiate execution 
of the object module. (Restrictions en the use cf RUN are 
given in its command description in Part III.) 

Change the contents of machine registers, the values of pro- 
gram variables, the virtual storage locations, or the conirand 
symbols. 

Interrupt execution of the user's program; display the in- 
struction location or the FORTRAN statement nuirfcer where in- 
terruption was handled (if LIMEN=I)„ 

Requests notification when execution cf an otject program 
causes certain events to occur. 

Remove the specified object module from the user's virtual 
storage. 
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USE OF COMMAND STATEMENTS 

PCS commands are often conveniently expressed in command statements. 
For purposes of this discussion , three types of command statements are 
considered: dynamic, immediate, and conditional. 

DYNAMIC STATEMENT : This is a command statement that contains an AT or 
TRAP; the AT or TRAP should appear first in the statement and should be 
the only AT or TRAP command in the statement. Commands that precede AT 
or TRAP are executed immediately; commands that follow AT or TRAP are 
not executed until control arrives at the instruction location designat- 
ed by the AT command, or the TRAP event occurs. Cnly these commands can 
fellow AT or TRAP in a dynamic statement: 



BRANCH 


GO 


CALL 


IF 


DISPLAY 


SET 


DUMP 


STOP 



If any other command appears in a dynamic statement, a diagnostic mes- 
sage is issued. Several dynamic statements can be effective at the same 
instruction location; the statements are processed in the order in which 
they were issued. A dynamic statement has the form, 

AT location; command 
TRAP operands; command 

IMMEDIATE STATEMENT : This is a command statement that does not begin 
with an AT. Immediate statements are executed when they are entered, 
any command except AT may appear in an immediate statement. 

CONDITIONAL STATEMENT : This is a command statement that contains an IF. 
Both immediate and dynamic statements can be conditional. The condition 
that IF specifies must fce satisfied before the commands that follow are 
executed. Commands preceding the first IF command are executed without 
regard to IF. When more than one IF appears in a conditional statement, 
the commands making up the statement are executed from left to right un- 
til an IF that specifies an unsatisfied condition is encountered, or the 
end of the command statement is reached. Any command may appear in a 
conditional statement. A conditional statement has the form, 

IF condition; command 

PCS APPLICATIONS 

To load an object module, the user can issue a LOAD, CALL, or QUALIFY 
command or he can issue a direct call. (Refer to the descriptions of 
these commands in Part III. ) The loading of one module may cause anoth- 
er module that is implicitly referenced by the first module to be 
loaded. For example, when a LCAD cenmand is issued for module PGNA, 
which implicitly references module PGMB, PGMB is also loaded. 

Following LOAD, the user may enter immediate command statements to alter 
the prograir before execution begins or dynamic statements to alter the 
program during execution. The CALL command or direct call initiates 
execution for a loaded module, or loads and executes an unloaded module. 
To modify a program after it has been called (via CALL or direct call) , 
the user presses the ATTENTION key and enters his command statements. 
This procedure is not recommended for use of dynamic statements, since 
execution may have progressed past the point referenced by the AT com- 
mand. He resumes execution with the GO or ER2NCH commands. 

When the user references an external symbol, with the QUALIFY command, 
in a program that is not loaded, the program is loaded, and the user can 
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proceed as if he had entered the LOAD command. fthen the user references 
an external symbol that is not in any of the prcgrairs in the libraries 
available tc him, the symbol is assumed to be a command symbol, which 
was defined via the SET command. 

If the user has previously identified an external naire via the QUALIFY 
command, he can refer implicitly to locations in the identified module. 
iie simply omits the external name from the PCS command operand. For ex- 
ample, to display the location four bytes from CSECT PGK, the user can 
enter : 

display pgm. (4) 

or he can enter: 

qualify pgm 
display . (4) 

Tne effects of the QUALIFY command last until the user issues another 
QUALIFY command or until he unloads the module. So, later in his task, 
he can still use the implicit form for addressing. This implicit form 
applies to all PCS commands. 

Note : Any PCS command causes a module to be loaded if the user enters 
an external name as the operand of the PCS command. (SET PGM. <4>= , A i 
causes PGM to be loaded). 

To display a location offset from zero, the user can enter: 

display L'O". (4) 
or he can enter: 

display . (4) 

if no external name has been identified by a QUALIFY command. 

After execution has ended, the user can again issue command statements, 
or restart execution from a specified entry point by using the CAIL 
command . 

The user can refer to internal program symbols in any loaded object 
module for which he requested an internal symbol dictionary (ISD) when 
that module was compiled or assembled? otherwise, he can reference only 
external symbols. 

Dynamic statements remain enforced until a REMOVE ccirirand deletes them 
or until a program referenced by a dynamic statement is unloaded. A 
program is unloaded by an UNLOAD command or when the only program that 
references it is unloaded. For example, if the loading of PGMA caused 
PGME to be loaded, unloading PGMA causes PGMB to be unloaded if PGMA is 
the only loaded module that references PGMB. 

Note : If PGMA is referenced in any PCS command, unloading PGMA removes 
all dynamic statements that refers to it during the session. If PGMA is 
not referenced in a PCS command, but PGMB is, all dynamic statements 
referencing PGMB are removed only if PGMA is also unloaded. A diagnost- 
ic message is issued when dynamic statements are removed because a 
module is unloaded. 

TYPES OF OPERAND SPECIFICATION 

The user has broad addressing capabilities for referencing his programs 
by using variables, constants, and the dynamic statement counter as 
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operands for PCS commands, 

VARIABLES: These are designated by their (1) symbolic names, (2) 
hexadecimal locations, cr (3) register numbers. 

1. Symbolic names ; PCS commands use either external, internal, or 
command symbols. 

• External symbols are defined within a prograrr for reference dur- 
ing load or execution, FORTRAN COMMON ELOCK names, function 
names, subroutine names, and the names of assembler language 
ENTRY and CSECT statements are external symbols. For example, an 
assembler program named PGM has these characteristics: 

Two control sections, named PGMCS and PGMPS. 

TWo ENTRY statements, named PGMEP and PGMEX. These, then, are 
valid external symbols: 

PGM 

PGMCS 

PGMPS 

PGMEP 

PGMEX 

Four external symbols are assigned to every FORTRAN object module 

module name (for example, FTNPGK) 

CSECT name (for example, FTNPGM#C) 

PSECT name (for example, FTNPGK#P) 

module entry point (for example, FTNPGN#E) 

In PCS commands any of the external symbols may be referenced, 
and also any function subroutine or COMMON blcck names. Variables 
referenced by external symbols have undefined type attributes. 

• Internal symbols are defined within a single assembly or compila- 
tion; FORTRAN statement numbers, FORTRAN data names, and symbols 
defined by the assembler statements are internal symbols. 

The user may refer to internal symbols only if he requested an 
ISD when his program was assembled or compiled. Also, he must 
qualify each internal symbol to specify the program in which the 
symbol was defined. 

N ote : When an ISD is requested for a EORTRAN compilation, opti- 
mum code is not generated. 

An internal symbol is qualified explicitly by preceding it with 
the name of the program in which it was defined and a period. 
When the defining program has not teen processed by the linkage 
editor, only one level of qualification is required. Thus, for 
internal symbol IOSR, defined in program PGM, the qualified sym- 
bol is : 

PGM. IOSR 
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When the defining program has been processed by the linkage edi- 
tor, two levels of qualification are required. The name of the 
prograin output by the linkage editor (first level), followed by a 
period; the original name of the defining program C second level) , 
followed by a period i and the internal symbol. Thus, for intern- 
al symbol IOSR, defined in program PGM, which has teen processed 
by the linkage editor into new program LEPG$, the qualified sym- 
bol is: 

LEPGM. PGM. IOSR 

An internal symbol may also be qualified implicitly if its refer- 
ence has been preceded by a QUALIFY command containing the neces- 
sary qualification. If internal symbol AEX has teen defined in 
program PGMA and a QUALIFY PGMA command has been entered, the 
internal symbol may be referenced by entering ABX alone. 

Note: If a program processed by the linkage editor contains an 
internal symbol that is identical to an external symbol in anoth- 
er program, explicit qualification is necessary to reference the 
internal symbol. 

• Command symbols are independent cf the user's prcgram and are de- 
fined by a SET command, which designates a symbol that the system 
cannot recognize as either an internal or external symbol. For 
example, in the command SET R=5, if R is neither an external nor 
internal symbol, the system designates R as a command symbcl with 
a value of 5. The command symbol may now be referenced or modi- 
fied by subsequent FCS commands. 

when a command symbol has teen defined, it is addressable for the 
user's entire terminal session? it is not affected by unloading 
one cf his programs. The command symbcl may be retained for 
future terminal sessions by using the PROFILE command (see Sec- 
tion 6) . 

Note: If a program is loaded after a command symbol is defined, 
and the command symbol is identical to an internal or external 
symbol in the program, the corrmand symbol is not recognized until 
that program is unleaded. 

The types of internal and external symbols are discussed below. 

• %CSECT and %COM are two special symbols that may be used to refer 
to the unnamed assembler language control section and the FORTRAN 
COMKON BLOCK, respectively. %CSECT may be used enly as an 
internal symbol } %COM may be used as either an internal or exter- 
nal symbol. When multiple unnamed control sections are loaded 
internal symbols (including %CSECT) are referenced in the last- 
loaded control section even when the internal symtol is explicit- 
ly qualified by the module name. 

• FORTRAN statement numbers are written by the user in the original 
source program and should not be confused with the line numbers 
that are assigned to each scarce line by the compiler. State- 
ments must be referred to by their numbers, net by line numbers. 
Executable statement numbers, used as internal symbols, can be 
incremented to refer to unnumbered statements. The increment 
must be an integer greater than 0, enclosed in parentheses, that 
inirediately follows the statement number. The increment desig- 
nated by (1) refers to the numbered statement itself. Therefore, 
86(1) refers to numbered statement 86; 86(2) refers to the next 
executable statement following statement 86. 
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Executable statements are arithmetic and logical assignment sta- 
tements, control statements, and I/O stateirents. Nonexecutable 
statements are specification statements and subprogram state- 
ments; they should not be referenced. 

Examples of FORTRAN statements: 

10 READ (1,20) A 
20 FORMAT (F6.2) 

B = A*3.14 

WRITE (2,20)A,B 

GO TO 10 

The third statement (B = A*3.14) is referenced by using 10(2). 
The FORMAT statement cannot be referenced because it is not 
executable. 

A statement number refers to a statement^ first line and all of 
its continuation lines; continuaticn lines can net be designated 
separately when using incremented statement numbers. 

The integer may be used to refer to a program's first execut- 
able statement when the first executable statement is not number- 
ed. In the preceding example, if the READ statement were unnum- 
bered, could be used to refer to it; 0(2) would then refer to 
the second executable statement (B = A*3.14). 



Su b scr i pted symbol s are internal symbols that refer to elements 
within an array. A subscript to an internal symbol must be ei- 
ther an integer constant, an integer variable, or an integer ari- 
thmetic expression. 

Symbols used in subscripts may contain subscripts, and subscript 
symbols may contain offsets; however, the subscript value obtain- 
ed when the various nests and expressions are evaluated must be 
an integer. i ive levels of nesting (subscript and subscript, 
subscript and offset, or offset and offset) are allowed. The 
user may not refer to dummy FORTRAN arrays in a FCS statement. 
If it is necessary to refer to a shared array, references to the 
array should be qualified by the module that contains the array, 
that is, the main routine. 

The subscript is enclosed in parentheses, following the internal 
symbol naming the array. One subscript may be used for each 
dimension of the array; multiple subscripts are separated by com- 
mas. A diagnostic message is issued if an evaluated subscript 
(1) is not an integer greater than 0, cr (2) is larger than the 
dimensions defined for the array. 

Examples : 

a. This two-dimension array contains three rows and five columns 
and is defined by the internal symbol ARRAY. 

2 0-7 5 13 

-2 1 15 -6 8 

1 3 9-5 

ARRAY (2,4) refers to the array element at the intersection 
of row 2 and column 4. 

ARRAY (2,4) = -6 
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ARRAY (4,4) would be invalid, since it is outside the array, 

t. Consider this subscripted symbol : 

ARRAY CARRAY (1,1), ARRAY (3,3>) 

The subscript contains subscripted symbols that must be 
resolved first. 

ARRAY (1,1) = 2 
ARRAY (3,3) = 3 

When these values are substituted in the original expression, 
the result is, 

ARRAY (2,3) = 15 

c. Assume this table is defined by the symbol TAELE, and each 
item in the tatle contains a length attribute of 1. 



TABLE 


5 


TABLE+1 


3 


TABLE+2 


1 


TABLE* 3 


4 


TABLE+4 


2 



Now consider % 

ARRAY (ARRAY (TABLE. CI) , TAELE. (4) ), ARRAY (TAELE. (2), 
TABLE. (3))> 

This subscripted symbol has a subscript with an offset that 
is nested within the subscript. Evaluation of the sub- 
scripted symbol starts inside the nesting and works outward. 

TABLE. (1) = 3 
TABLE. (4}=2 
TABLE. (2>=1 
TABLE. (3) = 4 

Substituting the values in the expression, 

ARRAY (ARRAY (3, 2), ARRAY (1,4) ) 

reduces the expression to one similar to Example b. The 
final value is determined by substituting the values f roir 
ARRAY in Exairple a: 

ARRAY (1,5) = 13 

The subscripted symbol to be evaluated is: 

ARRAY (1*X/Z,X-Y*Y) 

Assume that X=6, Y=2, and Z=4. The arithmetic expressions 
must be evaluated first. 

1+X/Z = 1+6/4 = 1 + 1=2 

(Note that in integer division PCS ignores the remainder.) 

X-Y*Y = 6-2*2 =6-4=2 

Therefore the expression reduces tcs 
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ARRAY (2,2) = 1 

Note : FORTRAN dimension variables and symbols, defined by 
assembler language DC or DS statements with duplication factors 
or multiple constants, are arrays. tthen an array has an adjust- 
able dimension value, the value established at the latest execu- 
tion of the subprogram is used. Assembler arrays are limited to 
a single dimension that is equal to the duplication factor multi- 
plied by the number of multiple constants. 



• offset, length, and type reference a specific byte following a 
symbolic address or hexadecimal address. An offset of 1 refer- 
ences the next byte beyond the symbolic address. The number of 
bytes that constitute the offset is written after the symbcl or 
address and its offset. The form is symbol (cr address), period, 
left parenthesis, offset, comma, length in bytes, coirma, type of 
output format, right parenthesis: 



SYMBOL . (OEFSET, LENGTH, TYPE) 
AEDRESS 



An offset may be one of the following: 

integer, hexadecimal, or address constant 

integer or hexadecimal variable 

integer or hexadecimal arithmetic expression 

Length must be a positive integer. 

TYPE controls the output format? it is specified as: 

C — character format; a string of characters is displayed 

with all unprintable characters represented by periods. 

I — integer format; a string of from 1 to 10 integers pre- 
ceded by a sign (for example, +1234567890). 

E — binary format? a series of binary digits in bit represen- 
tation. The LENGTH attribute for a binary constant con- 
tains the length, in bytes . (In a SET command, this is 
specified in the form B* 11001010', where each digit 
represents a bit. ) 

F — floating-point format? for single precision values, this 
specifies 8 digits in floating point format (that is, 
±.XXXXXXXXE±XX). For double precision, this specifies 16 
digits in double precision format (that is, 
±.XXXXXXXXXXXXXXXXD±XX) . 

S • — symbolic assembler language format? as output data, this 
is a header and one or more lines of assembler language 
code: 

LOG INSTRUCTION LABEL CPC OPERAND SYMBCl 
01 00022 4330 F042 NEXT IC 3,66(0,15) SWITCH 

If the user does not specify the output format, the data is dis- 
played in hexadecimal format. If the user specifies a range and 
uses two different output formats in the statement (for example, 
PGM. (4,,C) :PGM. (7, ,1) ,) the last form specified is used. 

Note : The module must have an ISD if the user wants to specify 
TYPE=S . 

In a SET command, the TYPE attribute is ignored? the data is 
entered as it is specified on the right side of the equal sign 
(for example, SET PGM. (4 , ,I)=" AECD* ) results in character data 
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being entered; the I r on the left side of the equal sign, is 
ignored • 

The rules for nesting offsets are the saire as for subscripts. 
However, a symbol cannot have both a subscript and an offset. 

Thus: 

TAG.(ARRAY(2, 3)) 
is a symbol with offset and is legal, but: 

TAG. (4) (ARRAY(2,3)) 

describes an invalid symbol that has both a subscript and an off- 
set at the same nesting level. 

Examples : 

a. The twenty- seventh byte beyond DATA would be expressed as: 

data. (27) 

or it would be expressed as: 

data. (x* lb f ) 

If a length of four bytes is to be attributed to the data at 
the twenty- seventh byte from DATA, the expression would be: 

data. (27, 4) 

or it would be: 

data . (X^f ,4) 

b. The user may reference data in a dummy control section 

(DSECT) by using the register offset. Assume general regist- 
er 5 contains the address of the DSECT, and the field to be 
referenced has the symbol DATA associated with it in the 
DSECT; the lecation desired is: 

data. (5r) 

Again, explicit length may be supplied: 

data. (5r,8> 

c. A four-byte field that is the twentieth fullword field in a 
table whose address is A 'DATA* would be expressed as: 

. (a , data , +20*4,4) 

Note that the symbol to the left of the pericd is not re- 
quired and is assumed to be location if unspecified and no 
qualification exists. 

d. It is possible to achieve a full virtual storage dump by 
specifying the range from location to FFFFFF (for 24 -bit 
addressing) and to FFFFFFFF (for 32-bit addressing) as off- 
sets in the operand field of the DUMP command, for exairple: 

dump .Cx'G') :. (x'ffffff ■) 
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2. Hexadecimal locations : PCS commands can refer to the contents of 
locations. The hexadecimal address of the location referred to is 
enclosed in apostrophes and is preceded by L. The referenced vir- 
tual storage location must have been assigned to the user's 
storage. 

Examples of hexadecimal addresses: 

L'BOOO 1 

L^FECO 1 

L'SIOO' 

Note that a hexadecimal address can be used in place of a syirbol 
for use with offset, 

I/O - . (reoce) 

I/IAFOOO*. <X , 24 f f X , 18 - > 
L'lAFOOO' . (,24) 

3. Registers : PCS coirmands can refer to any of the general or 
floating-point registers. A reference to a general register is 
written as nR , where n is an integer from to 15 that identifies 
the register. 

A reference to a single-precision, floating-point register is writ- 
ten as nE f where n is 0, 2, 4, or 6. A double-precision, floating- 
point register is referenced ty writing nD, where n is 0, 2, 4, or 

6. 

Examples of register references: 

3R represents general register 3 

2E represents floating-point register 2, single-precision 

bD represents floating-point register 6, double-precision 

CONSTANTS : Six classes of constant are used in PCS commands: (1) 
integer, (2) character, (3) hexadecimal, (4) floating-point, (5) 
address, and (6) binary. 

1- Integer constant may be written as a signed or unsigned deciiral 
integer. The length of an integer constant is not explicitly de- 
fined, but is determined from the expression in which the constant 
occurs. If the value of the number exceeds the permissible size, 
as determined by context, the number is truncated en the left. 

Examples of integer constants: 

9327 
-641 
+ 1066 
-67 

2« Character constant consists of letters, decimal digits, and special 
characters enclosed in apostrophes. Also, any remaining unused 
coubinations of the 256 valid card-punch combinations may be desig- 
nated as a character constant. An apostrophe, used as a character 
in a character constant, must be represented by two apostrophes 
even though only one is in storage. If the length of the constant 
is not appropriate in the context used, the constant is truncated 
or is filled with blanks on the right. 

Exairples of character constants: 
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»$3.98 f 

•HOW ARE YOU?* 
•I^'M FINE' 

3. Hexadecimal constant is one or more hexadecimal digits CO through 9 
and A through F> preceded ty an X and enclosed in apostrophes. A 
hexadecimal constant is either truncated or filled with zeros at 
the left if its length is inappropriate for the context. 

Examples of hexadecimal constants: 

X' 76543210* 
X'FFFFFFFF 1 
X'ACE - 
X^FECS" 

4. Floating-point constant is a signed or unsigned decimal number in 
the principal part of the constant, which can be written with or 
without a decimal point. The decimal point can be at the beginning 
or end in any position within the decimal number, as appropriate. 

An exponent specifies a power of 10 by which the principal part is 
multiplied during conversion. The decimal point may be omitted if 
an exponent is specified, in which case it is assumed to be located 
at the right-hand end of the decimal number. The exponent of a 
floating-point constant is either an E or a E f followed by a signed 
or unsigned decimal integer. An E indicates a single-precision 
number; a D indicates double- precis ion. 

The exponent may be omitted if the principal part contains a deci- 
mal point. When used, the exponent must fellow the principal part 
of the constant. The magnitude of the exponent must be within the 
range of approximately -75 to +75. If the exponent exceeds the 
maximum, +75 is assumed. If it exceeds the minimum, will be 
assumed. 

A floating-point constant is converted to a normalized floating- 
point number. If the exponent of a floating-point number is 
omitted, the floating-point number is assumed to be 
single-precision. 

All of the following floating-point numbers are equivalent and are 
converted to the same floating-point binary number: 

3.14159 
31.4159E-1 
314159. E-5 
314159E-5 
.314159E1 

5 - Address constant consists of the character A followed by a symbol 
enclosed in apostrophes. The allowable symbols are external symbol 
with cr without offset, internal symbol with or without offset, and 

subscripted variable. 

The length of an address constant is always four bytes, and its 
value is the address assigned to the symbol. Address constants are 
evaluated at the time they are used. The current value of any 
variable referenced in a subscript or offset is used in computing 
the value of the address constant. As a result, the value of an 
address constant that contains a subscripted or offset symbol may 
vary during program execution. 

Examples of address constants: 
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A ' PMG . TAG ' 
A' NAME' 
A'ARRAYCI, J) f 
A' FTNPGM. 100(36)* 
A'X. (4 096) f 

6 * Binary constant is written as a string of binary digits enclosed in 
apostrophes and preceded by the letter B. Eight bits comprise one 
byte cf data. When the user displays binary data r the data is dis- 
played as a series of bytes. 

Examples of binary constants: 

B-lOOOllOO' 

B'Ol' (displayed as B' 00000001') 
B'lO 1 (displayed as E'OOOOOOIO') 
B'1010' (displayed as B'OOOOIOIO*) 

When the user enters a binary constant on the right side of the 
equal sign in a SET command, and if LIMEN=I, the SET operand is 
displayed for review in hexadecimal notation. For example, if the 
user enters 

default limen=i 

set pgm. (4 , 2)=b i 1111000011111111 , 

the system displays 

PGM. (X'U' ,2)=F0FF 

to confirm the operation. 

COUNTER: A counter, associated with each dynamic statement, is incre- 
mented by 1 for each occurrence of the events specified in the state- 
ment. This counter must be referenced by the special character % when 
the AT or TRAP command is entered. (For example, AT X;EISPLAY%.) The 
value of the counter may be displayed or dumped, and can be used in for- 
ming expressions. The counter that is displayed or dumped is the one 
associated with the AT or TRAP statement in which the counter is 
referenced. Since % is not a user's variable, it cannot be changed by a 
SET command. (See "Examples Using PCS Commands, " Example 3, later in 
this section. ) 



OPERAND DEFINITIONS 

The terms used to describe the operands of PCS comrands are (1) data 
location, (2) data field, (3) expressions (arithmetic and logical), (4) 
instruction location, (5) link-edited module name, (6) object module 
name, and (7) statement number. 

DATA LOCATION : A symbol, a hexadecimal location, a register, or the 
special counter (%) can be a data location. Eoth fully defined and 
incompletely defined data locations may be referenced. 

Fully defined data locations have type and length attributes. Such 
locations include internal symbols without offsets, subscripted symbols, 
and floating-point registers. 

Incompletely defined data locations lack either the type attribute or 
the length attribute. A length attribute can be assigned to a syirbol 
with offset. The offset follows the period and left parenthesis and is 
followed by a comma and a length. Length is specified as an integer or 

Section 3: Program Management 51 



a hexadecimal constant that is greater than 0. The attribute is closed 
with a right parenthesis. 

Examples of symbols with offset and explicit length: 

Y. (X^EC' ,4) 
Z. (12,8) 
A. (2 r X , AF l ) 

Note that the offset may te defaulted and a length specified: 

Y.(,24) 

A length attribute may be assigned to a hexadecimal location by writing 
a colon that is followed by a larger hexadecimal location. A diagnostic 
message is produced if any locations within the range have not been 
allocated to the user's virtual storage. 

Examples of hexadecimal data locations with explicit length attributes: 

L^FECO" iL^FEC? 1 

L^lOO'iL^lCB 1 

DATA FIELD ; A contiguous group of storage locations whose contents are 
to be displayed or dumped is a data field. These locations may be in 
the user's virtual storage or in registers. P. data field may te a data 
location, an array, a ccntrol section, a symbolic range, a quoted str- 
ing, or an arithmetic expression. 

An entire array is specified as a data field for display or dumping if 
its name is written as an internal symbol without subscripting. Simi- 
larly, a CSECT name, written as an internal symbol without an offset, 
specifies the entire CSECT as a data field j so does a CSECT name written 
as an external symbol without an offset. 

A range of registers is specified as a data field by writing the numbers 
of the first and last registers to be displayed or dumped, separated by 
a colon, and followed by the character that identifies the register 
type. The register type** are: 

R = general registers 

E = floating-point registers with fullwcrd fcrir 

D = floating-point registers with doubleword forn 

When the user specifies a range, general register follows general 
register 15, just as floating-point register follows f loating-pcint 
register 6. 

Examples of specifying a range of registers are as follcws: 

0:4R general registers 0-4 

14:3R general registers 14 and 15, then registers 0-3 

2:6E floating-point registers 2, 4, and 6 in fullword format 

6:2D floating-point registers 6, 0, and 2 in doubleword forrrat 

A data field may be specified by a symbolic range that is written as two 
symbols separated by a colon. The storage location cf the symbol to the 
right of the colon must be greater than the location of the symbol on 
the left. If not, a diagnostic message is issued. Ecth symbols used to 
specify a data field must te either external symbols or internal sym- 
bols. One range may not be specified by an internal and an external 
symbol. When two internal symbols are used to specify a data field, 
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both must have been defined within the same CSECT. External symbol 
ranges irust be contained within user-assigned storage. Either or both 
of the symbols used to specify a data field may be offset, but may not 
have explicit lengths. 

Examples of data fields specified by symbolic ranges are: 

A.BY:A.BX 

PGM.LSF:PGM.LSA 

LSF:LSA (if preceded by QUALIFY command) 

ABX^BX.CX'FFFF 1 ) 

ABY:AEY. (256) 

ABY. (24):AEY.(256) 

EXPRESSIONS; PCS command expressions are either arithmetic or logical. 



They are formed 


by 


using these operators: 


Operator 




Meaning 


Arithmetic 






+ 




Addition 


- 




Subtraction 


* 




Multiplication 


/ 




Division 


Logical 






—i 




Logical NGT 


1 




Logical AND 
Logical OR 


Relational 






> 




Greater than 


< 




Less than 


= 




Equal to 


>= 




Greater than or equal to 


<= 




Less than or equal tc 


-*— 




Not equal to 


-> 




Not greater than 


-< 




Not less than 


1. Arithmetic 


expressions may be used as 



values to which variables are to be set, as values tc be compared 
when you use relational operators, or as values to be computed and 
displayed. 

The least complex arithmetic expression is a single constant or 
data location. However, an arithmetic expression may include any 
nurrber of constants, data locations, and simpler arithmetic expre- 
ssions that are related by arithmetic operators. The special char- 
acter % may be used in an arithmetic expression in a dynamic state- 
ment to reference the dynamic statement ccunter. 

These rules must be followed in the formation of arithmetic 
expressions: 

a. Any arithmetic expression iray be enclosed in parentheses. 

b. Arithmetic elements or expressions may be connected by arith- 
metic operators to form other arithmetic expressions, provided 
that no two arithmetic operators appear in sequence and no ari- 
thmetic operator is assumed to be present. 

c. An arithmetic element or expression preceded by a sign (4 or -) 
is permitted; the operators * and / must be preceded and fol- 
lowed by elements or expressions or both. 
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All data locations connected by arithmetic operators ir.ust have 
lengths of 256 bytes or less and be aligned en the appropriate 
boundary. 



Arithmetic expressions that do not contain terms that are in paren- 
theses are evaluated left to right, in this order: (1) multiplica- 
tion or division; (2) addition or subtraction. For example, the 
arithmetic expression: 

PGM . A+PGM • B*PGM . OPGM. D 

is evaluated as: 

PGM.B*PGM.C (denote result by XJ 
PGM.A+X (denote result by Y) 

Y-PGM.D 



Arithmetic expressions that contain terms in parentheses are evalu- 
ated by treating the innermost term in parentheses first. After 
all terms in parentheses have been evaluated, the remaining opera- 
tions are performed in the saire way as is done for expressions not 
in parentheses. Fcr example, the arithmetic expression: 

PGM . A+ ( PGM. B-IG*C. C > + PGM- D/PGM. E 

is evaluated as: 

PGM.E-PGM.C (denote result by X) 
X+PGM.D (denote result by Y) 

Y/PGM.E (denote result by Z) 

PGM.A+Z 

Vihen division is performed in an integer arithmetic expression, the 
integer part of the quotient is retained, and the fraction is dis- 
carded. Therefore, if 13 is divided by 2, the answer is 6 (13/2= 
6). The expression A*B/C may yield a different result than the ex- 
pression B/C*A. 

For example, where A=8, E=6, and C=4 , the first expression is 

8*6/4=12 
and the second expression is 

6/4*8=8 

Examples of valid arithmetic expressions: 

l.E-5 

PGM.X. (4) 

PGM.X/POl.Y-1 

PGM.IMPGM.J+PGM.K) 

-Z.(,4)/% 

The arithmetic method used to perform the operation is based on the 
type of the variables in the expression. Integer, floating-point, 
or logical arithmetic can be used in evaluation. 

An undefined expression contains all undefined variables (for exam- 
ple, external symbols and hexadecimal locations), or it contains 
two variables of different types. 



54 



If an undefined expression is used in a subscript, it is assuired to 
be integer. If an undefined expression has a variable that is 
longer than four bytes, the expression is assuired to be floating- 
point. The user is prompted in all other cases to provide the type 
of arithmetic to be performed. 

An expression containing a constant can never be undefined. The 
data type of the constant is used to define the expression. 

Logical expressions are used in a conditional statement and take 
any of these forms: 

a. A single logical variable. 

t. Two or more logical variables connected by the logical opera- 
tors S or | . 

c. Two arithmetic expressions of the same type, connected by a 
relational operator. 

A logical expression that contains a relational operator has the 
logic value "true" if the condition expressed by the operator is 
iret when the expression is evaluated. Otherwise, the expression 
has the value "f alse. w 

The lcgical operator must be followed by a logical expression or 
term. Similarly, the operators £ and I must be preceded and fol- 
lowed by logical expressions to form compound expressions. 

Any logical expression may be enclosed in parentheses. Any com- 
pound logical expression to which the -» operator is to apply must 
be enclosed in parentheses. 

Logical expressions that do not contain terms in parentheses are 
evaluated in the following order: 

a. Multiplication and division (* and /> 

b. Addition and subtraction (+ and -) 

c. Relational operators (>, <, = , >=, < = , -•=, -*<, -*>) 

d. Lcgical NOT (-«) 

e. Lcgical AND (€) 

f . Lcgical OR ( | ) 

When there is more than one operation of the same level, the opera- 
tions are performed from left to right. For example, the 
expression: 

PGM.X/PGM.Y<1.E-5SPGM.Z=4 

is evaluated as: 

PGM.X/PGM.Y (denote result by A) 
A<l.E-5 (denote result by E) 

PGM.Z=4 (denote result by C) 

ESC 

This example is evaluated as being •true" only if the data at PGM^X 
divided by the data at PGM.Y was less than 10- a , and the data at 
PGM.Z is the integer 4. The variables at PGM.X and PGM.Y must be 

Section 3: Program Management 55 



floating-point data, and the variable at PGM. Z roust be integer data 
to have the logical expression evaluated. 

Terms in parentheses within logical expressions are evaluated in 
the same order. Then, when the expressions have been reduced (that 
is, a single logical value has been assigned to each term in paren- 
theses), evaluation is performed in the order indicated. For exam- 
ple, the logical expression: 

(PGM.B=2£PGK.C=3)|PGK.A=1 

is ev a lu a t ed as : 

PGM.B=2 (denote result by W) 

PGM.C=3 (denote result by X) 

WSX (denote result by Y) 

PGM.A=1 (denote result by Z) 
Y|Z 

In this example, the variable referenced irust be integer data. The 
expression is "true" when the data at PGW.B=2, and the data at PGM. 
C=3, cr when the data at PGM.A=1. 

Logical negation, indicated by the operator -*, can be used 
preceding: 

a. The relational operators =, >, and <. 

b. A single logical variable, in which case the variable need not 
be enclosed in parentheses. 

c. a compound logical expression, in which case the expression 
rrust be enclosed in parentheses. 

Assuming that both implicitly qualified symbols A and B are logical 
variables, and both C and E are arithmetic expressions, then the 
following are valid uses of the -» operator: 

-■A 

-<:=ds-.a 

-»A| E 
-»<A|B) 

The last two expressions are not equivalent. In the first case, 
the -i operator applies to the logical variable A? in the other 
case, the -» operator applies to the evaluated result A|B. Thus, if 
£ is false, and B is true, then -»A]B is true, and MA|B) is false. 

INSTRUCTION LOCATION : A statement within the user's source prograir is 
an instruction location. An instruction location is expressed either as 
the statement number of an executable FCETPAN statement cr as an inter- 
nal syirbol in a source program that is written in assembler language. 
In either case, the user can apply an offset to the primary location de- 
signator. An explicit length is ignored. When an internal symbol is 
used, it does not have to reference a location defined in the ISD as an 
xnstructicn or as a CSECT name. 

The user can express instruction locations as internal symbols within 
his program only if he requested an ISD when his prcgrair was last com- 
piled cr assembled. Otherwise, he must express them as external symbols 
(with or without offset) or as hexadecimal locations. In either case, 
the instructions must be en half word boundaries. 

The ISD supplies the system with information concerning internal sym- 
bols. However, an ISD that is produced may net certain all of the in- 
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formation about the source program. For example, in assembler language 
usage, overlays caused by the ORG statement are not reflected in the 
ISD. If the user displays (via DISPLAY command) the storage locations 
affected by ORG statements, the contents will be correct, but the as- 
signed symbolic names will be misleading. 

LINK- EDITED MODULE NAME : This name must precede the original program 
name, when qualifying internal symbols in a program that has been pro- 
cessed by the linkage editor. 

OBJECT MODULE NAME : This name is always the one assigned when the 
source module was compiled or assembled. When internal symbols are 
referenced, the object module name must qualify the symbol. This name 
must be further qualified if the original program module was processed 
by the linkage editor. 

STATEMENT NUMBER ; This number is assigned by the system to each state- 
ment containing an AT command. This number may be referenced in a 

REMOVE coirirand. 



SYNONYMS 

Synonyms fcr PCS command names and operands may be used. Examples of 
valid synonyms are : 

XYZ=LEPGM. PGM. IOSR 

ABC=XYZ. (X'UC 1 ) (where XYZ is a synonym) 

X=A+E*C 

ABY=L'EF24 6' 

AEX=ARRAY(I,J) 

whenever the system is processing an operand (such as a data location or 
a data field), and a synonym is recognized, the synonym is substituted. 
The operand derived by the substitution may also contain synonyms, which 
are substituted one at a time. This procedure continues until all 
synonyirs are resolved. 

Synonyir substitution occurs only for the first character string encoun- 
tered when processing such operands as data location and data field. 
For exair.ple, for a data location defined by LEPGM. PGM. IOSR, synonyms are 
substituted for LEPGM, tut are not substituted for PGM or IOSR. (Pefer 
to Section 6 and to the description of the SYNONYM command in Part III.) 

Examples : 

1. ftssurre the user has link-edited programs PGMA, PGMB, and FGMC that 
form a new program, LEPGM. New, the user wants to reference con- 
currently internal symbols within PGMA, PGMB, and FGMC with PCS 
commands. Since only one qualification is allowed at one tiire, the 
user is required to qualify fully all syirbcls in twe of the three 
prcgrair modules involved. 

Suppose he enters: 

synonym a=lepgm.pgmb 
synonym b=lepgm.pgmc 
qualify lepgm.pgma 

Now explicit qualification is simplified; the user can reference 
symbols in PGMC merely by using B. as the qualifier. Thus, the 
symbol X in PGMC can be referenced as: 

set b.x=x" 00000000* 
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This is much simpler than 

set lepgm.pgnic.x^x 1 00000000' 
which would be required otherwise. Now, an expression such as 

set lepgm. pgma.z=lepgm.pgmh.y+lepgm.pgmc. x 
can be stated as 

set z=a.y+b.x 

2. The user has entered a QUALIFY command so that explicit qualifica- 
tion of external symbols is unnecessary. He then enters the 
definitions: 

synonym array=table. 
synonym i=x , ^c* 
synonym j=4 

Then the expression 

display array (i,j) 

which would normally show an element of the array, is interpreted 
as 

display table. (x* 4c' , i|) 

which, instead, displays an element of the table. 

Note ; Substitution is made for ARRAY, I, and J, since each is a 
data location. If ARRAY had teen explicitly qualified (PGM. ARRAY), 
then TAELE. would not have been substituted, since ARRAY is the 
second character string in the data location PG#. ARRAY. 

Examples Using PCS Commands 

The internal symbols in all the following examples are implicitly quali- 
fied, since a QUALIFY command was entered with the naire of the defining 
program. 

1. The user wants to display the contents of all general registers and 
floating-point registers in doubleword format when his prograir 
reaches the instruction location ERREXT. Ee alsc wants the con- 
tents of the virtual storage locations, in the range from TOP tc 
EOT, to be put into his PCSOUT data set when PCS reaches the ERREXT 
location 

at errext; display :15r ,0: 6D;dump top:bot 

2. The user wants to change the value of variable POINT to the address 
of the external symbol DATA when his program arrives at instruction 
location TAGA: 

at taga;set point=a , data" 

3. The user wants to display a table, TAB, every tenth time through 
the loop ENTAB. When the loop is executed 100 times, he wants to 
dump the CSECT named BLDTAB: 

at entabjif 56=(%/10)*10 ,-display tab;if S=(S/100)*100jdump bldtat 

4. The user wants to use PCS commands to produce Input and output to 
his program. He wants to make some computations, using the sequen- 
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tial numbers 50 to 500. At statement number 10 he sets up a con- 
stant, INPUT, using the variable A, which was previously initia- 
lized at 0. At the end of each computation, which is statement 
number 80, he wants to see the result, OUTPUT: 

at 10;set input=a+50?set a=a+l;if input=500;stop 
at 80; display output ;branch 10 

The user has assembled his prcgram and has discovered that he has 
forgotten to provide a label (TAGA) for the instruction 

L 2,XYZ 

which is located at hexadecimal location 124 and referenced by 

B TAGA 

which is at hexadecimal location 176. By using PCS commands, he 
can fix his program temporarily, withcut reasseirbling, by issuing 

at csect. (x'lTe*) ;branch csect. (x 1 124 ' ) 

The user wants to display the contents of all general registers 
when the variable VAR1 in his PSECT changes. 

TRAP STORE, VARl; DISPLAY 0:15R 
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SECTION 4: COMMAND CREATION 



The user can alter the names of system- supplied commands, redefine 
system-supplied commands, and create new commands from a series of 
system-supplied commands, or user assembler object coding- In creating 
a new command, the user can also define his own operands and establish 
the desired defaults for these operands. 

Two system-supplied commands, FRCCEEF and EUILTIN, are used to create 
new commands. 

• PROCDEF defines a command procedure, consisting cf a combination of 
other commands that the user can invoke as a command. 

• BUILTIN defines an object program that the user can invoke as a 
command. 

The following are some advantages to user-written commands: 

1. Although it is possible to store a series of commands (for example, 
a nonconversational SYSIN data set) and then execute them via the 
EXECUTE command, this process has limitations in its flexibility. 
PROCDEF is easier to use; it does not require the user to explicit- 
ly create a data set when the commands are tc be stored, and it 
allows easier modification of the commands. 

A user may have a series of commands that he issues many times dur- 
ing a task or several tasks. He can collect these commands in 
sequence as a procedure, assign a name to this procedure via 
PROCDEF, and invoke this procedure by issuing the name. Since seme 
of the commands in the procedure may require operands, provision is 
made by the system to associate the operands with the name of the 
conmand procedure. After the procedure has been defined and named, 
it may be executed by entering its name and the necessary operands 
during a task, just as any system-supplied coirmand is entered. 
Defining a command procedure is analogous to writing a computer 
program; that is, a set of commands is established at one tiire and 
is executed at a later time by issuing its name. 

2. The user may require an entirely new command that invokes actions 
unlike those provided by any current system-supplied commands. He 
creates an object program and, by using the BUILTIN command, 
defines his object code as a user-written command. This procedure 
is called by its name in the same way a system-supplied command 
calls a procedure. It differs from a normal object module call, 
however, in that operands may be supplied according to command- 
operand rules rather than program-call rules. 

COMMAND PROCEDURE 

A command procedure is a prestored sequence of coitrrand statements that 
uses parameters and other input material necessary for the execution of 
the statements. The user calls the procedure by issuing the procedure 
name as a command. For example, if he has defined a command procedure 
Dy using PROCDEF and has specified ABC as the procedure name, he nay 
call his procedure by issuing ABC. The procedure call is a two-stage 
process. In the first stage, operand substituticn is made where speci- 
fied. In the second, lines of the procedure, which are commands, are 
scanned and executed in the same manner as a system-supplied command 
that is entered at the terminal. 
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PROCEDURE LIBRARY 

Command procedures are stored in procedure libraries: user-written pro- 
cedures are in the user's procedure library (member SYSPRO of USERLIB) ; 
system-defined procedures are in the system procedure library (member 
SYSPRO of SYSLIB) . When the user issues a command, the system first 
searches the user's procedure library. If the procedure is not there, 
the system checks its library, Ihis order of library search enables the 
user to naire a procedure he has created with a system-supplied coitirand 
name, thereby preempting execution of the systeir procedure. 



COMMAND PROCEDURE DEFINITION — PROCDEF 

The PROCDEF command defines a command procedure that consists of other 
commands. In issuing PROCDEF, the user must specify, as an operand, the 
name to be assigned to the new user-written command procedure. This 
procedure name is the command that invokes the procedure. (See the de- 
scription of the command in Part III.) 

When the user enters the PRCCCEF command, the text editor is invoked. 
The user can use all of the text-editing commands during command crea- 
tion (see "Editing Procedures" later in this section and "Text Editing" 
in Section 2 of this part). Unless the user suppresses line number pro- 
mpting (by issuing the command DEFAULT LINENO=N), the system prompts him 
to enter data by issuing line numbers. For a new procedure, the system 
issues line number 100; for an existing procedure, the system issues an 
underscore as a prompt for a command. In both cases CLP is set tc the 
first line after line 0. 

For example, if COPYCAT is the name of the command procedure being de- 
fined, the user enters 

procdef copycat 

and the system replies 

i 
0000100 \ 

If COPYCAT were previously defined, and the last line is line 800, the 
system's reply is an underscore and CLP is set to the first line of the 
PROCDEF . 

SPECIFYING DUMMY OPERANDS 

The user can build a coirmand procedure that accepts operands when called 
by its coirirand name; to do this, he must establish dummy operands in the 
PROCDEF to "hold the places" for the real operand values. Dummy 
operands are placed in the PROCDEF where the real values would be ex- 
pected; then, when the command is entered, the real c per and values are 
substituted for the dummy values. The dummy operands are specified in a 
PARAM line. This line must only occur at the first line after line of 
a PROCDEF; the format is: 

User : procdef inlaw 
Sys,User : 0000100 param trouble 

Then, when the PROCDEF is called, the system accepts cne operand (for 
example, INLAW JONES) and substitutes the operand for each occurrence of 
the dummy operand in the PROCDEF. 



User : procdef inlaw 
Sys,User : 0000100 param trouble 



Section 4: Command Creation 61 



0000200 display 'trouble' 
0000300 _end 

In this example, the PROCDEF could be called like this; 

inlaw jones 

The system substitutes the operand JONES for each occurrence of the 
dummy operand TROUBLE. The PROCDEF displays the wprd JCNES. 

A dummy operand name may be specified in either of two ways. 

1. A character string, which defines a positional operand, is (a) the 
keyword name of the dummy operand used for association with the 
calling parameter (the value specified in the cperand field of the 
coinrand calling the procedure) and is (b) the internal string for 
which there will be a substitution in the procedure text. The ac- 
tual character string specified as the calling parameter replaces 
all occurrences of the duiriry cperand in the procedure text. For 
example: 

param dsname 

When the procedure is called, the value of the first positional 
operand or the operand value of the keyword DSNAME in the calling 
command replaces the occurrences of ESNAME in the procedure text. 

2. An external character string is the keyword name of the dummy 
operand used for association with the calling parameter (the value 
specified in the operand field of the coinrand calling the proce- 
dure) . The internal string (to the right of the equal sign) is 
replaced by a substitute in the procedure text when the procedure 
is called. For example: 

param dsname=$l 

DSNAME is the external string, and $1 is the internal string. When 
the procedure is called, the value of the first positional operand 
or the operand value of the keyword DSNAKE in the command calling 
the procedure replaces $1 in the procedure text. Operand resolu- 
tion is discussed in detail under "Operand Resolution and Substitu- 
tion" later in this section. 

Example : 
Procedure 

Use r: procdef callme 
Sys,User : 0000100 param entry=$a 

0000200 display 'calling $a f 

0000300 call $a 

Procedure call can be in one of the following forms: 

callme entry =one 
callme one 

The result is: 

CALLING ONE 

Module ONE is called. 

ENTRY in the PARAM line is an external string and is associated 
with the keyword ENTRY in the procedure call. The value ONE is 
substituted for the dummy operand $A in each occurrence. 
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Procedure 

User : procdef callroe 

Sys,User ; 0000100 param $a 

0000200 display f calling $a • 

0000300 call $a 

Procedure call can be in one of the following forms: 

callme one 
callire $a=one 

The result is: 

CALLING ONE 

Module ONE is called. 

$A in the PARAM line is both the external string , used for associa- 
tion with the calling operands, and the internal string, to be sub- 
stituted for in the procedure. 

The user may specify a dummy operand as either a normal string or a 
quoted string. (Refer to the definition of string constants in Section 
2 under "General Terms.") 

Note : Durriry operand values are usually preceded by a $ or some other 
identifier to ensure that only desirable substitution occurs. (See 
"Operand Substitution," later in this section.) 

ENTERING PROCEDURE TEXT 

After the user issues the PROCDEF command name and operands, and option- 
ally the PARAM line, all subsequent lines issued without a preceding 
break character are included in the procedure text. The system prompts 
for each line with a line number , and there is no limit to the nuirber of 
lines the user can enter. 

When a break character appears first in a line, the statement that fol- 
lows is interpreted as a command. (See the list of definitions under 
"General Terms" in Section 2.) However, when the first and second 
characters of the line are break characters, the usual break-character 
action does not occur. Instead, the system replaces the pair of break 
characters with a single break character and processes the line as if it 
were text. Thus, lines starting with break characters can be put into 
procedures . 

The user can enter system-supplied commands (including PROCEEF and BUIL- 
TIN) or user-written coirmands as text. The ccirirands entered need not 
include all the operands associated with them, but cnly those necessary 
tor the successful performance of the functions requested. These 
operands can remain variable, if the user specifies dummy names that 
also appear in the PARAM line, or can be fixed with explicit values. 
Fixed operand values are not included in the PARAM line and are acted 
upon as specified in the text when the procedure is called. 

A direct call to an object module can be entered by using the name of 
the module in the procedure text. 

TERMINATING PROCEDURE DEFINITION 

The user terminates processing of a PROCDEF command by entering a break 
character followed by either an ENE command, another PRCCEEF command, a 
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PLI command, or an EDIT command, fchen the user enters another PRCCDEF 
command, the same options for terminating its processing are applicable; 
the last PROCDEF must be terminated with either an END, EDIT, or EII 
command. 

Examples : 

1- User ; procdef copycat 

Sys,User ; 0000100 param ddname=alphname,dsname=namel,- 
0000200 $any ,newname=$l 

0000300 ddef ddname=alphname, dsorg=vi,dsname=namel, - 
0000400 volume=$any 

0000500 catalog dsname=namel,u,newnanre=$l 
0000600 _end 

In line 100, DDNAME, DSNAME, and NEWNAME are external strings (key- 
words) that associate the calling parameters with the internal 
strings in the line: ALPHNAME, NAME1 , and $1, respectively. These 
internal strings are replaced in the procedure text by the calling 
parameter values, $ANY, represented pcsitionally in line 100, is 
replaced by a substitute in the text. 

DDEF, en line 200, is a system- supplied command that has the vari- 
able operands DDNAME, DSORG, DSNAME, and VOLUME. DSCRG=VI is a 
fixed operand value and is acted upon as specified. Values for the 
other variable operands are supplied when the procedure is called. 

CATALOG, on line 300, is also a system- supplied command. Twc of 
its operands are variable and are replaced by substitutes when the 
procedure is called. When the break character, followed by the END 
coirmand, is entered, the definition of this procedure is 
terminated. 

2- User : procdef dmprog 

Sys,User : 0000100 param $1, 'here^here 1 

0000200 if ^l^'yes 1 ; display •success 1 
0000300 if "il'^'yes* ? duirp hereithere 
0000400 __edit xyz 

The quoted string 'HERE: THERE* is given as a dummy operand in the 
PARAM line. The apostrophes permit the use of the special charac- 
ter (the colon) within the character string. The apostrophes are 
removed when the string associated with this dummy operand is sub- 
stituted in the procedure text. 

In lines 200 and 300, IF is a system- supplied command; the apos- 
trophes enclosing its operands are not removed when the substitu- 
tion is effected. The break character and EEIT command on line 400 
terminate the PROCDEF. 

3- User : procdef diff 

Sys,User ; 0000100 param alphname, $1, namel 

0000200 ddef ddnam€=alphname, dsorg=$l,dsname=name 1 

0000300 _procdef callme 

0000100 param alphname, $a, $1, $2, ■ $3 f , $4 

0000200 asm n am e= alphname, macrolib=$a,y,y,y, y 

0000300 copycat alphname, $1,$2,$3,$4 

0000400 _end 

The break character preceding the second PROCDEF cemmand terminates 
the execution of PROCDEF DIFF. The PROCDEF named CALLME is termi- 
nated with _END. within CALLME (line 300), the user-written ccir- 
irand COPYCAT is used, since it was defined by z+ PRCCDEF. 
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Nested PROCDEF s 

The text of a procedure, defined by PROCDEF, may contain other PROCDEF 
commands. This structure is called a nested PROCDEF. 

SYSINX: The value of SYSINX determines the source cf input for a 
PROCDEF command. A nested FRCCDEF should get its input from the preced- 
ing PROCDEF. (See Example 1. ) Before entering the nested PROCDEF, 
issue the following command: 

default sysinx=e 

The user must remember to return the value of SYSINX to G following com- 
pletion of the nested PROCDEF. (For further information on SYSINX, see 
the discussions under "Source Input" in Section 2 and "Implicit 
Operands" in Section 6. The system default is given in Appendix C.) 



Examples ; 
1. User: 



procdef abc 

Sys, User ; 0000100 param 31,alphname,dsname=namel, newname=$n 

0000200 ddef alphname,vi,namel 

0000300 catalog dsname=namel,newname=$n 

0000400 default sysinx=e 

0000500 procdef 31 

0000600 param 3 2,name2,cjsname= : name3 

0000700 ddef name2 ,vs ,dsname=name3 

0000800 set r=5 

0000900 qualify 32 

0001000 32 

0001100 end 

0001200 default sysinx=g 

0001300 _end 

Lines 100 through 1200 are treated as text of AEC. This procedure 
is terminated by _END, in line 1300. The two break characters that 
precede END in line 1100 are replaced by a single break character, 
the normal break-character action does net occur. 

When ABC is entered, the values of the calling parameters are 
resolved and substituted for the occurrences of the dummy operands 
throughout the procedure. ABC is executed so that DEFF f CATALCG, 
and DEFAULT are executed. When the PROCDEF on line 500 is encoun- 
tered, definition cf a new procedure is initiated. If the command 
AEC had been issued as 

abc one,myprog ,dsname=mylib,mylib0 2 

line 500 would become 

PROCDEF ONE 

Input for this PRCCDEF comes from within AEC since SYSINX=E (line 
400). Lines 600 through 1000 of ABC become lines 100 through 500 
of ONE and the END on line 600 terminates procedure definition. 

PROCDEF ONE 

0000100 PARAM 32 ,NAf*E2 ,DSNAKE=NAME3 

0000200 DDEF NAME2 ,VS,DSNAME=NAME3 

0000300 SET R=5 

0000400 QUALIFY 22 

0000500 32 

0000600 END 
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The next time the user issues ABC, with the first operand specified 
as anything but ONE, another new procedure is defined. If OfcE is 
specified again as the first operand of ABC, no new lines are added 
to PROCDEF ONE, In order to add lines to a procedure created on 
line 500 of ABC, there must b€ an INSERT LSST coirirand in ABC. 

Notice that when ABC is executed, the value of SYSINX is returned 
to G (line 1200). 

User : procdef def 

Sys,User : 0000100 param $l f $2,alphnaire, dsnaire=$3 

0000200 ddef alphnaira,vi ,dsnaire = $3 

0000300 default sysinx=e 

0000400 procdef $1 

0000500 param dsnane=$3 ,$4 ,$2 

0000600 catalog dsnaroe=$3 , state=u, newnan*e=$4 

0000700 default sysinx^e 

0000800 procdef $2 

0000900 param Sa f at f dc 

0001000 if 'aa^'yes'? display ab 

0001100 if , ab , = , yes i ; display ac 

0001200 _end 

0001300 end 

0001400 default sysinx-g 

0001500 _end 

In procedure DEF, there are two nested PROCDEFs. The PROCDEF on 
line 800 is nested within the PROCDEF on line 400, which is nested 
within DEF. The first time DEF is executed, a procedure is defined 
(via PROCDEF on line 400) ; when this procedure is executed, another 
procedure results. 

Lines 100 through 1400 are text of DEF. The first two break chara- 
cters preceding END on 1200 and the two break characters preceding 
END on 1300 are replaced by single break characters. Assume DEF is 
called: 

def two, three ,mypro,dsnan?e=iryjob 

Resolution and substitution of calling parameters occurs; EDEF and 
DEFAULT are executed, and then PROCDEF on line 400 is executed. 
This procedure definition results: 

PROCDEF TWO 

0000100 PARAM DSNAME^MYJOB ,$4 , THREE 

0000500 CATALOG DSKAME=KYJCB,STATE=U,NEWNAME=$4 

0000300 DEFAULT SYSINX=E 

00004 00 PROCDEF THREE 

0000500 PARAM 3A, 3B, 8C 

0000600 IF 'aA^'YES 1 ; DISPLAY SB 

0000700 IF s aB ,, ^ s YES , j EISFLAY 3C 

0000800 END 

0000900 _END 

Now, assume this procedure call occurs: 

two dsname=mine, ok, three 

Calling parameters are resolved and substituted, CATALOG and 
DEFAULT are executed, and another procedure is defined: 

PROCDEF THREE 

0000100 PARAM aA,SB,SC 

0000200 IF 'aA'^'YES 9 ? DISPLAY 3B 



66 



0000300 IF , aB , = , YES i ; BISFLAY 8C 
0000400 _ENE 

Following these procedure calls , the user has three procedures: 
DEF, TWO, and THREE, 

3. User ; procdef jot 

Svs,User : 0000100 param a>l,a2,alphname=namel,$3 
0000200 ddef namel,vi,$3 
0000300 default sysinx=e 
0000400 prccdef a>l 
0000500 param $3,newname=$4 
0000600 catalog $3,state=u,newname=$4 

0000700 procdef a 2 

0000800 param al,b2,c3 

0000900 if , al , = , b2 i ;display c3 

0001000 end 

0001100 default sysinx=g 
0001200 _end 

Within JOE, there are two nested PROCEEFs, but this time they are 
both nested within JOB, not one within the other, as in Example 2. 
When JOB is called, two procedures are defined and stored in the 
procedure library. Assume this procedure call: 

job cat,cond,alphnarae=ddx,datas 

Following resolution and substitution of the calling parameters, 
EDEF and DEFAULT are executed, and the PROCDEF on line 400 is 
encountered. This procedure is then defined: 

PRCCDEF CAT 

0000100 PARAM DATAS,NEWNAME=$4 

0000200 CATALOG DATAS ,STATE=U,$4 

Procedure definition is terminated by the PROCDEF (preceded by a 
break character) on line 700 of JOE.. A new procedure is then 
defined: 

PROCDEF COND 

0000100 PARAM Al,E2,C3 

0000200 IF i Al , = , B2»; DISPLAY C3 

0000300 JBND 

NESTED PROCEDURES 

Nested procedures are user-written commands that call procedures (de- 
fined by either PROCDEF or BUILTIN) within the text of a procedure. A 
nested procedure may include another user-written command that calls a 
procedure. In each case, when a new procedure is called, it is process- 
ed before returning to the procedure from which the call was made. For 
example: 

User : procdef tab 

Sys,User : 0000100 param ddnam€=argl,dsrg,dsnl, $new$,ac 

0000200 ddef argl,dsrg,dsnl 

0000300 irycat $new$ 

0000400 mycall ac 

0000500 _end 

When TAB is called, DDEF is executed and MYCAT is recognized as a user- 
written coirmand. MYCAT invokes its procedure, and if that procedure 
calls another procedure, that call is processed. When execution of 
MYCAT is completed, MYCALL, also a user-written command, is executed. 
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SHARING USER- WRITTEN COMMANDS 

User-written ccHranands can be shared when the cwner irakes his user li- 
brary available to other users via the PERMIT command. The prospective 
sharer issues the SHARE command, with these operands: the name by which 
he will refer to the owner" s user library, the owner's user identifica- 
tion, and the name of the data set to be shared (that is, USERLIB). For 
example: 



share lib,user345,userlib 



is the comirand issued where LIE is the name by which the sharer will 
refer to the owner's user library- Then the sharer issues a PRCCEEF 
command, with the name of the command he wants to share as the operand. 
When the system prompts with line 100, the user enters a break character 
followed by the EXCERPT command* Be specifies as operands on the 
EXCERPT command the name ty which he refers tc the owner's user library 
(in the abcve example, LIE), the member name S¥SPRO, and the name of the 
owner's procedure. The entire text of the procedure is inserted into 
the sharer's user library. 

For example, a user wants to share a command, procname, from a user li- 
brary to which he has been granted access. After issuing the SHARE com- 
mand, as above, this PROCDEF is entered: 

User : procdef ate 

Sys,User ; 000100_excerpt lib(syspro) ,rname=procname,100,last 
_end 

AEC is defined as a command in the sharer's user library and may be 
called by him. 

EDITING PROCEDURES 

The PROCEEE command invokes the text editor. This enables the user to 
issue any of the text-editing commands while he is defining a procedure 
or after he has defined it. The user enters a break character, followed 
by the text-editing command. He should not enter the EDIT command. 

The CORRECT command can be used within a line to respecify characters 
that the user wants to insert, replace, or delete. Other commands, such 
as INSERT, EXCISE, and REVISE, can be used to insert, delete, or replace 
complete lines in the procedure text. (See Part III for the descrip- 
tions of these commands.) 

This example shows how the text-editing commands can be used in the 
definition of a procedure: 

User : procdef copyit 

Sys,Use r: 0000100 pararo alphnam€,dsorg,namel,name3 

0000200 ddef alphname ,dsorg,name2 

0000300 ddef alphname ,dsorg, name 1 

0000400 eds namel,name2 

0000500 ^correct 100 
System : PARAM ALPHKANE ,DSCRG, SAMEl ,NAME3 

User : * $2 

Sys, Use r: excise 300 

insert 500 

0000500 default sysinx=e 

0000600 edit name2 

0000700 _end 

While defining COPYIT, the user enters text on line- 100, 200, 300, and 
400. When the system prompts with line 500, he decides to make a 
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correction in line 100. He enters a break character followed fcy the 
CORRECT command and the number of the line (ICO) he wants to modify. 
The system responds with the line text, and the user enters the correc- 
tion. The asterisk in the first column duplicates that column and all 
following columns until another correction character ($) is encountered. 
The user wants to change NAME3 in the PARAM statement to 1SAME2, so he 
places a $2 under the last two characters in the line. This duplicates 
the ccluirn above the $ and replaces the 3 with a 2. 

The system then prompts with an underscore (rather than a line nuirber) , 
indicating that another command statement must be given if processing is 
to continue. The user wants to delete line 300 froir the procedure text. 
ae enters the EXCISE command and line number 30 0. The system again pro- 
mpts with an underscore, indicating the completion of the command's 
execution and requesting the next statement. 

To continue entering text, the user enters an INSERT ccmmand, followed 
by the number of the next line to be entered as text, which, in this ex- 
ample, was line 500. (Be could have entered INSERT LAST since he is 
adding to the end of the procedure. ) The system prompts with line num- 
ber 500, and the user enters two additional statements in lines 500 and 
600. The procedure definition is terminated with the END command. 

Another use of the INSERT command in a procedure definition follows* 

User : procdef pdef 

Sys,Use r : 0000100 param alphnanre,vi ,namel,naire2,name3 

0000 200 ddef dsname=alphname,vi,ddname=namel 

0000 300 _ddef dsname=myprog ,vs,ddname=test 
^insert 

0000300 ddef dsname=name2 ,vi,name3 

0000400 _end 

The user, after entering line 200, decides to issue a ccmmand statement 
to the command system. When the system prompts with line 300, the user 
enters a break character followed by a DDEF command, which does not be- 
come a part of the procedure. Vihen the DDEF is completed, the system 
prompts with an underscore character, requesting the next command state- 
ment. The user enters an INSERT command with nc line number specified, 
and the system prompts with the line number specified by CLP (in this 
case, line 300). This use of the INSERT command is possible because the 
CLP was not changed by the issuance of a text-editing command for a pre- 
vious line number. The user continues to add tc the procedure text be- 
fore terminating PROCDEE processing with the END command. 

When a procedure has been previously defined, the user may enter the 
PROCDEF command followed by the name of the procedure he wants to modi- 
fy. The text editor is invoked, and the system prompts for the next 
command by issuing a break character. 

For example, the user again wants to modify the procedure COPYIT, which 
he has previously defined. He enters: 

procdef copyit 

and the system prompts with the break character. The user may now enter 
a text-editing command or he may add to the procedure text by entering 
the INSERT LAST command. 

To delete a procedure that has teen defined, and to have the correspond- 
ing procedure name removed from the dictionary as a USERLIB entry, the 
user must enter the PROCDEF command, followed by the name of the proce- 
dure. He then enters a break character, fcllcwed bv the EXCISE coirmand, 
specifying the range of lines of the procedure as operands on the com- 
mand. For example, tc delete the previously defined procedure COPYIT: 
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User : procdef copy it 

Sys,User ; 0000100 ^excise 0,last 
end 

EXCISE deletes the entire procedure from line tc the last line. BUIL- 
TIN, EDIT, END, PLI, or PROCDEF must be to complete the deletion of the 
procedure. Until one of these commands is issued, the reference to the 
procedure is not removed. 

Note: Line must be specified, since it is the line number assigned by 
the PROCDEF command to the procedure header. 

DIAGNOSTIC MESSAGES DURING EXECUTION 

Diagnostic messages that occur during the execution of a command proce- 
dure are output to SYSCUT, which may be a data set cr terminal. When 
the diagnostic message requests the user to repair an error condition, 
the user can make the correction at his terminal, and the procedure con- 
tinues executing. If the error is nonrecoverable, the diagnostic mes- 
sage is output to the SYSOUT data set. In nonconversational mode, the 
task is terminated, and diagnostic messages are sent to the SYSCUT data 
set. In conversational mode, the user is queried for a new command. 



OBJECT PROGRAM DEFINITION — BUILTIN 

This command defines an object program that the user can invoke as a 
command. It is useful for accomplishing actions not achieved by any 
system-supplied commands or combination of them. The user creates an 
object program and defines it as a command by use of BUILTIN. (See the 
description of this command in Part III.) 

As with a PROCDEF, the user can define operands and supply operand 
values when his user-written command is issued. If the user wants tc 
define operands for his command, he must supply the coding within his 
module to handle the parameter values supplied when the module is 
called* The BPKD macro instruction must be supplied in the object code 
and must include the definitions of the expected parameters. The macro 
instruction must also supply the names needed to provide linkage between 
the module and the BUILTIN command that defines that module. Refer to 
Assembler User Macro Instructions for a further description of these 
macros . 



OPERAND RESOLUTION AND SUBSTITUTION 

The user can specify operands for user-written commands that are created 
with either the PROCDEF or BUILTIN commands. With PROCEEF, the user is 
primarily establishing the operand values that are required as parame- 
ters by the commands. He specifies these parameters by entering, on the 
line following the PROCDEF command, the word PARAM followed by the dummy 
names he wants to have for the operands. 

When the user wants to define parameters for a BUILTIN procedure, he 
must supply the coding within his module to handle the parameter values 
supplied as operands. Be must also provide a BPKD/BPKDS macro instruc- 
tion within the module to generate the linkage to the object program de- 
fined by BUILTIN. Pointers are then generated to specify the address 
within the module where the operand names are stored. When the user 
issues the command, any operand value given with the command is passed 
to the module by pointers in the locations provided by the BPKD/BFKDS 
macro instruction . 
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With user-written commands created with BUILTIfl and PRCCDEF, the parame- 
ters supplied as operands are resolved at the tiire the user-written com- 
mands are issued. Since system-supplied ccirmands were created with ei- 
ther PRQCDIF or BUILTIN, the description of the operand resolution and 
substitution process for user-defined commands pertains to system- 
supplied commands as well. 

For commands created with ERCCCEF, there is a procedure-expander routine 
that resolves operands and substitutes operands. Operand resolution 
consists of: 

1. Analyses of calling operands 

2. Analyses of procedure operands 

3. Generation of operand equivalences 

A1SALYSIS OF CALLING AND PROCEDURE OPERANDS 

When the user calls a procedure, he enters the procedure name and the 
operand values he wants assigned to the dummy operands of the procedure • 
As with system-supplied commands, operands may be represented either 
positionally or by means cf a keyword. 

Positional and Keyword Notation 

Following is a review of positional and keyword notation, which was in- 
troduced under "Operand Representation" in Part I. 

Positional calling operands must be supplied by the user in the sane 
order as that given in the procedure parameter list (PARAM line> or the 
BPKE parameter list. When a positional operand is omitted, and another 
positional operand is written following the omitted operand, the comma 
that would have followed the omitted operand must be retained to indi- 
cate the relative position of the operand that is included. 

Assume this command procedure defines a VISAM data set. 

User : procdef viddef 

Sys,User : 000 0100 param ddnaire,dsnarae 

0000200 ddef ddname,vi,dsname 

0000300 _end 

This procedure call might be used: 

User : viddef mybest,testl 

VIDDEF is the command that calls the procedure. The first positional 
operand in the calling sequence is MYBEST, which is the value assumed by 
the first positional dummy operand (DDNAME) in the PARAM list. TEST1 is 
the value assumed by DSNAKE because TESTl is in the same position as 
DSNAME. The result of the above procedure call is: 

DDEF MYBEST,VT, TESTl 

For the same procedure, assume that the user wants to specify operands 
that are to be inserted into the DDEF command, but he wants to change 
the data set organization to VSAM. He enters: 

User : viddef mybest,vs,testl 

This procedure call is erroneous. By positional association of the 
calling operands and the PROCDEF PARAM line, these associations are 
made: 
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DDNAME=MYBEST 
ESNAME=VS 

The result of the above procedure call is: 

DDEF MYBEST,VI,VS 

MYBEST is the EENAME; VI is still the data set organization, and VS is 
DSNAME. There could be a data set that is naired VS, tut the user in- 
tended TEST1 as the DSNAME. 

Keywords of calling operands may appear in any order; of course, each 
Keyword has an associated positional notation. Keywords have the gener- 
al form KEYW0RD=value, where KEYWORD is the name of the operand and is 
shown in all-capital letters, followed by an equal sign, and value is 
the actual value of the operand. 

Assume the following procedure defines a data set that dumps one or more 
data locations or expressions: 

User ; procdef autodump 

Sys,User ; 0000100 parain dsname=alphnan»e,data= , here :there* 

0000 200 ddef ddname=pcsout,dsorg=vi,dsname=alphname 

0000300 dump here: there 

0000400 __end 

The following procedure call can be used: 

User : autodump data="0 :15r,0: 6d, top: middle" 9 dsnaire=myprg 

This call has a combination of keyword and positional notation, and the 
keyword notation does not coincide with the corresponding positional 
notation in the PARAM line of the procedure. The result of the atove 
procedure call is: 

DDEF DDNAME=PCSOUT,DSORG=VI ,DSNAME=MYPRG 
DUMP 0:15R,0:6D,TOP:NIEDLE 

This example also shows how a quoted string can be used to define sever- 
al operands in one operand field. Although an cperand in the BUMP com- 
mand is not shewn in keyword notation, it can be designated as keyword 
notation in the PARAM line and calling sequence. The operand , H£FE:- 
THERE' in line 100 of AUTODUMP must be identical tc the dummy operand 
specified in the DUMP command. The apostrophes are needed in the ke^- 
*?ord expression only if special characters are used. 

Defaults 

The user can specify, alter, or delete default values fcr the operands 
of a user-written command in the same way he does with a system-supplied 
command. Unless the user has provided default values fcr the operands, 
these operands must be specified when the command is issued. The user 
creates a default value by issuing the DEFAULT command (see Section 6 
and the DEFAULT command in Part III) and specifying the dummy operand 
name in the operand field. 

If the user invokes his command procedure and omits operands, the system 
either obtains the default value (if one exists) frcm the user litrary 
or substitutes a null string for the missing value. 

Fcr an object program defined with BUILTIN, the user can write a routine 
to either generate a message or supply a fixed value %'hen a mandatory 
operand is emitted. 
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Example ; This command procedure has been created to define a data set: 

User ; procdef defeat 

Sys,User : 0000100 param ddname=datnaroe,dsnaire=alphname,dsorg=vp 

0000200 ddef ddnaroe==datname,dsorg==vp,dsnaroe=alphname 

0000300 _end 

A dummy value of VP, which is not the default value of DSCRG CVI is the 
default) , is assigned tc keyword DSORG. 

Assume this sequence of commands in the procedure call: 

User : default dsorg=vs 

Sys,User ; defeat testx,dsname=progl,ddname=testxy 

The result, after resolution of the values, is: 

DDEF DDNAME=TESTXY,DSCRG=VS,DSNAME==PR0G1 

The following is an explanation of the way the system resolved the 
values that were entered: 

1. DDNAME=TESTXY 

Although the dummy operand EDKAME=DATNAME is in keyword notation, 
it can also be considered positionally (that is, the first operand 
in the PARAM line). The system resolves TESTX as a possible value 
for DA1NAME. However, DDNAME=TESTXY is specified in the calling 
sequence, so the system takes it as the value of DATNAME. 

2 . DS0RG=VS 

The system-supplied default value for ESORG is VI. ESORG=VP is 
given as an operand in the DDEF command and in the PARAM line. The 
DEFAULT command sets DSORG=VS. As a result of the procedure call, 
no indication is given for the value to be substituted for VP, ei- 
ther in positional or in keyword notation. The system searches for 
a default value, and since the user has given a default value for 
DSORG, this value (VS) is assigned as a string to be substituted 
for VP in the PARAM line. Eventually, the system substitutes VS 
for the dummy operand VP in the DDEF command. 

3. DSNAME=PROGl 

This operand is given in the procedure call in keyword format. 
PR0G1 replaces ALPBNAME. 

Nulls : The user can specify a null value for the operands of the user- 
written command. A null value is indicated by two successive 
apostrophes. 

Assume operands A=x, B=y, C=z : 

1. Ey omitting keyword operand A=x and specifying another operand in 
its position, a default value is assumed for A. If there is no 
default value, a null value is assumed. 

B=y, C=z 

2. A null value for A can be expressed as: 

• • , B=y, C=z 
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3. Keyword notation can be used to indicate a null value for A. 
h=", B=y, C=z 
Here is an example of the use of a null value: 

User : procdef copy 

Sys, Us er: 0000100 parair. dsnamel ,dsname2 f base, incr 

0000200 if •rase - ^'; cds dsnamel,dsname2 

0000300 if , base"^= ,i ; cds dsnamel,dsnarrie2, base, incr 

0000400 _end 

Calling Se q uence 1 : 

copy orig, dupe, base-* • 

Assume the user has specified a default value of 300 for EASE. The data 
set names GRIG and DUPE are substituted in lines 200 and 300 of CCPY. 
BASE is indicated with a null value, which is assigned to the dummy EASE 
operand in the PARAM line. The null value is substituted wherever the 
character string BASE appears in the text cf COPY, as: 

200 IF ' »= ,f ;CDS GRIG, DUPE 

300 IF ,, -= ,, ;CDS ORJG,EUPE, ■■ , 100 

After substitution, the quoted string 'BASE 1 becomes a quoted string 
with no space between the apostrophes, since a null value is actually a 
quoted string of zero length. The system default value of 100 is 
assumed for the operand INCR, in line 300, since INCR was defaulted in 

the calling sequence, 

7or calling sequence 1, therefore, the conditions are met in the condi- 
tional statement in line 200; the associated CES command is invoked. 

Calling Sequence 2 : 

copy or ig, dupe 

Assume, again, that the user has specified a default value of 300 for 
BASE. BASE and INCR are defaulted in the calling sequence. The user- 
supplied default value cf 300 for BASE and the system- supplied default 
value of 100 for INCR will be the values assigned to the operands BASE 
and INCR in the PAJRAM line. The result of the substitution process is: 

200 IF ' 300 , =" ■ ;CDS GRIG, DUPE 

300 IF , 300 , -.= i f ;CDS ORIG, DUPE, 300,100 

The conditions for the conditional statement in line 200 are not iret 
(that is, , 300 f does not equal * '), but the ccnditions for the condi- 
tional statement in line 300 are met. The CDS command is executed. 

GENERATION CF OPERAND EQUIVALENCES 

The system establishes a table for the dummy operands, their correspond- 
ing keywords, and the calling sequence values. 

The result that is generated is shown in Table 10. The first column. 
Internal string, contains the character string that is the dummy operand 
in the PARAM line. This dummy operand identifies the string that is to 
be replaced in the procedure text when substitution occurs. The second 
column. Keyword, contains the keyword operand in the PARAM line. The 
third column. Value, contains either the keyword or positional value 
expressed in the calling sequence. When a call is made on a procedure, 
the keyword column is searched for each calling parameter keyword. If 
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one is found, the value associated with the calling keyword is placed in 
the VALUE column; this ¥alue is substituted later for the associated 

string in the Internal String column* 

Table 10* Generation of operand equivalences 



r-. _. „— .— ~ — T ™„ — T - n 

| Internal string I Keyword | Value \ 

| String for which | Keyword in I Value in j 

| substitution occurs j PARAM list | calling sequence j 

xiere is an example of how resolution of operands occurs, based on the 
process shown in Table 10. Assume this procedure has been defined: 

Users procdef asrowlist 

Sys, Use rs 0000100 parara alphname,s tor ed~$n, liner- (first, last) ,~ 
0000200 vers ion, symlist=$y 

0000300 asm alphname ,stored=$n, liner- (first, last) ,~ 
0000400 verid=version,isd=y ,symlist=$y,asmlist-y, - 
0000 500 crlist^y f stedit==y,isdlist^y,pmdlist=y 
0000600 _end 

This procedure call is made: 

asmwlist myprog,stored=y,version=today ,now,alphnaire=iryprogl,symlist=n 

The effect of operand resolution is shown in Table 11. 

Table 11, Indication of operand resolution 



| Position | 1 I 2 1 3 | U | 5 | 

1 PARAM String |ALPHNAME|STCRED=$N|IINCR=(FIRST # LAST> | VERSION) SYKLIST=$Y 

I 11! II 

(Calling |f4YPROGl |STCRED=Y I I NOW JSYMLIST^N 

lvalues III II 

I II! II 

|String for jALPBNAMEf $N | (FIRST, LAST) |VERSICNI$Y 

| which substi- j j j j | 

jtution occurs) 1 I II 

l «. _j — „„_ — _jl„ — _„_jl_. _„„„._. . _.l_. • l. _. 

For each string named^ a value is ascertained. 

Internal Strin g Ke yword Substitute Values 

ALPBStAME BLfHNAME MYPROG/MYPROGl 

$N STORED Y 

(FIRST, LAST) II NCR null 

VERSION VERSION TODAY/NOfc 

$Y SYKLIST N 

The last value in each line is taken* The system's table of operand 
equivalences looks like this: 

Internal String Keyword Value 

ALPHNAME ALPHNAME MYPROG1 

$N STORED Y 

(FIRST, LAST) LINCR null 
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VERSION VERSION NOW 

$Y SYMLIST N 



OPERAND SUESTITUTION 



After resolution of operands, a substitution process occurs. The result 
of the procedure expansion, after operand substitution, is: 

ASM MYPROGl,STORED=Y,LINCR=( 100,100) ,VERID=NCW, ISD=Y f ~ 
SYMLIST=N,ASMLIST=Y,CRLIST=Y,STEDIT=Y,ISDLIS , I=Y,PMDLIST=Y 

Note : In the PARAM line, the keyword value of SYMLIST is specified as 
$Y; the $ ensures that the calling sequence keyword value (N) associated 
with SYMLIST is substituted only where the string $Y occurs in the body 
of the text. For example, if the dummy operand were SYMLIST=Y, then, 
for every occurrence of string Y, string N is substituted. Since no 
LINCR operand was specified in the procedure call, the default value for 
LINCR is substituted. 

Each character of the procedure text is compared with the first charact- 
er of each internal string, beginning with the last internal string. If 
a matching character is found, the remaining characters of that particu- 
lar internal string are compared with the succeeding characters of the 
procedure line. Note that the "characters of the procedure line" in- 
clude all characters, whether they are characters of a command, operand, 
comment, or delimiter within the text of the procedure. 

When an entire internal string is matched, the characters of the proce- 
dure line are replaced by the calling value. Khen no match exists, the 
other first letters of internal strings are compared with the procedure 
line, as above. If a character in the procedure text is not the same as 
the starting character of any of the operands, no substitution is made 
for that character. The comparison continues with the next character in 
the procedure text until all characters in the procedure have teen 
compared. 

If there are no variable operands, the procedure text remains intact, 
and no substitution takes place. 

Examples : 

1. Assume a user has defined three procedures, PRCCICAD, FRCCRUK, and 
PROCTEST, to perform three different functions. Each has its own 
set of operands, which may or rray not be similar in fcoth name and 
number. The user would like to be able to call any of these proce- 
dures by use of a single name, using a new procedure. 

User : procdef procall 

Sys,User : 0000100 param op,f unct,p= f list • 

0000200 opfunct list 

0000300 _end 

Later, he invokes FRCCLCAE: 

prccall proc,load, , myprogx,l. 0,h' 'SO' ' * 

After operand resolution occurs, substitution takes place. CP, 
FUNCT, and LIST are replaced fcy PROC , LOAD, and KYPRCGX,1.0, H* 50" • 
Following this substitution, the procedure is executed, and the re- 
sult is a new procedure call to PRCCLOAD, with the calling parame- 
ters MYPROGXjl.O^SO'. 

2. The following example shows what happens if du^my operand names are 
carelessly selected. Assume this procedure has been defined: 

76 



User i procdef starter 

Sys,User : 0000100 param prognaroe,pari=a,b # c f r 

0000200 abacus name^progname,a,b,c,r 

0000300 _end 

Later f a procedure call is issued, 
starter zap, 1.0 # c=f irst f r=loca 

After operand resolution and substitution the result that is ob- 
tained is undesirable. 

1.01.0FIRSTUS M.OF.E^SyU?,!. 0,, FIRST, LOCA 

The PARAM line should have unique character strings for dummy 
operands. The result of substitution would have been correct if 
the procedure had teen written as follows: 

User : procdef starter 

Sys,User : 0000100 param progname, pari=$a, $b, $c,$r 

0000200 abacus name=progname,$a,$b,$c,$r 

0000300 _end 

The procedure call is issued as before: 
starter zap,1.0 ,$c=first,$r=loca 

The result is: 

ABACUS ZAP,1.0,,FIRST f LCCA 

3. This example illustrates that substitution occurs en full matches 
with operands in a right-to-left occurrence. Assume that twe pro- 
cedures have been defined. 

User : procdef fakel 

S ys,User : 0000100 parair ab,abc,abce, c,e 

0000200 if - ab , = , abc f ; display •abce* 

0000300 _end 

procdef fake2 

0000100 parara atce, abc f ab, c,e 

0000200 if , ab i = , abc , i display "abce" 

0000300 _end 

The calls made are: 

fakel loca f no f cend # c=" f ,e=code 

fake2 loca, no jr cond # c= i ■ f e=code 

After operand resolution and substitution: 

FAKE1 

IF i LCCA'= , NO i ; DISPLAY , CCND i 

FAKE2 

IF , CCND i = , C0ND , ? DISPLAY 'CONDCCDE' 

In the call to EAKE1 there is no output. In the call to FAKE 2 the **'* 
systeir prints out CONCODE. 
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Note that these two procedures differ only in the order in which 

the dummy operands are specified. In FAKE1, the system found a 

iratch for ABC before it found one for AB ; the situation is reversed 
in FAKE2. 

PROCDEF EXAMPLES 

The user is expected to make extensive use of the facilities with which 
he can create his own ccmroands, primarily fcy the use of the PFOCDEF ccm- 
mand. The user can save time by confining a frequently used series cf 
commands into one command. The exairples below illustrate PROCDEF usage. 

1. The user wants to combine the DISPLAY and DUMP commands, and he 
wants the option of displaying data at the user's terminal or at 
the printer. Also, if DUMP is used, an automatic EDEF command is 
generated, defining the data set to be dumped: 

User : procdef output 

Sys,User : 0000100 param alter ,datal,data2,data3,dsname 

0000200 if •alter^' - [ 'alter'^y' .-display datal,- 

0000300 data2,data3 

0000400 if "alter , = , n i ;ddef pcsout, vi,dsname;dump- 

0000500 datal,data2,data3 

0000600 _end 

ALTER serves as a switch? if 'Y" is specified, cr if ALTER is 
omitted, DISPLAY is executed. If f N - is specified, DEEF and DUMP 
are executed. The user may execute a DUMP to display two data 
fields at the printer with the following calling procedure: 

output alter=n,datal=fieldl,data2=f ield2,dsnarre=data 

Only line 300 of OUTPUT is executed, which causes a DEEF to be is- 
sued and the two fields to be dumped. 

To display one data field, the user issues: 

output datal=fieldl 

Only line 200 of OUTPUT is executed. DSNAME need not be specified, 
since the DDEF is not executed. 

2. The user wants to have EDIT and REGION issued automatically every 
time he uses the UPDATE command. He defines a procedure: 

User : procdef change 

Sys,User : 0000100 param $ds,$rn 

0000200 default sysinx=e; edit $ds r rname=$rn 

0000300 default sysinx=g? update 

0000400 _end 

If the user wants to update a region in a data set, and the text 
editor is not invoked, he invokes his procedure CHANGE. For exam- 
ple, tc update the region XYZ in the data set MYDATA: 

change mydata,xyz 

3. Rather than issue a separate PROFILE command whenever he wants a 
synonym or default to be made part of his user library, the user 
causes the PROFILE to be an option of either SYNONYM or DEFAULT: 

User : procdef def 

Sys,User : 0000100 param par , spec, csw , save 

0000200 default par=spec 

0000300 if 'save^'y*? profile csw 
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0000400 _end 

procdef syn 

0000100 param term, string, csw, save 

0000 200 synonym term=string 

0000300 if 'save'^'y'; profile csw 

0000400 _end 

The user can issue SYN or DEF? however, if he wants to retain the 
syncnyir or default value, he enters SAVE^Y* as an operand of these 
two commands. When the save option is selected, the user can also 
enter CSW =, Y f if he wants to retain command symbols, 

4. The user wants to define a procedure to add a iressage to his mes- 
sage file: 

User ; procdef bldmsg 

Sys,User : 0000100 parair irsgid=$l,text=$2 

0000200 default sysinx=e 

0000300 edit userlibCsysirlf ) ,rnanre=$l 

0000400 update 

0000500 $2 

0000600 end 

0000700 display "msg $1 filed 1 

0000800 _end 

Since the EDIT command is included in this procedure, with a member 
naire cf SYSMLF following the ESNAME, the user always gains access 
to his message file by issuing BLDMSG. 

5. The user wants to have the FAFAM line automatically built after 
issuing the PROCDEF command: 

User : procdef noparam 

Sys,User : 0000100 param pname,$l,$2, $3, $4 

0000200 default sysinx=e ? procdef pname 

0000300 param $1,$2,$3,$4 

0000400 default sysinx=g ?insert 

0000500 _end 

The user can issue a PROCDEF and PARAM on one line 

noparam pnaroe,dparl ,dpar2,dpar3,dpar4 

and will be prompted to enter the lines for the text of the 
procedure, 

6. The user wants to generate a command to eliminate previously de- 
fined procedures: 

User : procdef destroy 

Sys,User : 0000100 param ax 

0000 200 default sysinx-e; procdef ax 

0000300 excise , last? end; display "ax eliminated* 

0000400 _end 

To eliminate OUTPUT, which was defined by PROCDEF in example 1, the 
user issues 

destroy output 

and the procedure shown in Example 1 is eliminated, 

7. The command system is provided with a procedure called ZLOGON, 
which is automatically invoked when a user logs on. Each user can 
define the actions that he wants performed by ZLOGCN with either 
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PROCDEF, BUILTIN, or SYNCNYM. For exairple, a user who uses only 
one program might create this procedure: 

User ; procdef 2logon 
Sys,User ; 0000100 qualify pyroll 

0000200 pyroll 

0000300 _end 

Every time he initiates a task, the system qualifies all internal 
symbols implicitly, leads his program , and causes the prograir to 
start execution. (PYROLL must reside in his USERLIB in order to be 
loaded and executed at this time.) 

8, The user defines a procedure that ascertains current default values 
for operands in his user profile: 

User ; procdef def? 
Sys,User : 0000100 param $x 

0000200 default sysinx=e 

0000300 procdef demo 

0000400 param $x=$y 

0000500 display , $x=$y i 

0000600 demo 

0000700 excise 0,last 

0000800 end 

0000900 default sysinx=g 

0001000 _end 

Now, if the user enters 

def? lineno 
the system responds with 

LINENO=Y 



SECTION 5: MESSAGE HANDLING 



During a user's task he is likely to receive any nuirber of system mes- 
sages that inform him of errors, request necessary information, or 
describe the status of some requested operation. These messages are 
normally issued from the system message file (the SYSMLF member of SYS- 
LIB). When the proper conditions arise, the system calls the user 
prompter to display a message from the message file. 

MESSAGE GENERATION AND RECEPTION 

The user can ccntrol the messages that he receives: he can reset the 
LIMEN and BREVITY operands to screen out unwanted messages or to specify 
the length of messages he receives? he can change the text of system 
messages; and he can add new messages to be issued frcm his own PFCCDEFs 
and BUILTIN-defined commands. These operations, described later in this 
section, are summarized below. 

1. To screen out unwanted messages or message IDs, the user can reset 
the LIMEN and BREVITY implicit operands by using the DEFAULT coir- 
mand (as described in Section 6). Initially, the user receives 
standard messages without the message ID codes (EREVITY=T). These 
messages are issued when an error has occurred, and the user must 
know about the error (LIMEN=w) . 

2. The user can change the text of system messages. He roust create a 
message file in his own USERLIB (again, member SYSMLF), Then he 
can put the new form of the system message in his own message file. 
Since the system searches the USERLIB message file before the sys- 
tem message file, the user*s altered forir is displayed. This pro- 
cedure is described later in this section. 

3. The user can put new messages in his message file and have the user 
prompter display them from PROCDEFs or BUILTIN-defined commands. 
This procedure uses the PRMPT command or PRMPT macro instruction 
and is described later in this section. 

When the user creates a message file containing his own versions of mes- 
sages issued from the system message file, cr his own messages for user- 
written commands, other users are not affected because any changes made 
to one user's USERLIB do not change another user's task. 

Message Explanation 

The user can issue an EXPLAIN command that causes the system to give an 
explanation of a system message or of specific words within a system 
message. (See Part III for a description of this command.) 

Message G e neration 

The user can generate a message by calling the user prompter. Be issues 
either the PRMPT coirmand (see the command description in Part III) or 
the PRMPT macro instruction (for assembler language programs; see 
Assembler User Macro Instructions ) to invoke the user prompter. 

Message Filtering 

Message filtering is the process of determining which messages the sys- 
tem displays. Each message is classified in each of three categories 
when it is created. The three categories, as shown in Table 12, are: 
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1. Severity of the iressage CLIMENj see Part A of the table) 

2. Length and type of message (BREVITY? see Part E cf the tatle) 

3. Mode cf the user's task (see Fart C of the table) 

SEVERITY : LI MEN is the operand name in the user profile for the severi- 
ty of the k ess age. The severity codes shown in Table 14 (Part A) are in 
order of increasing severity* The user prompter does not display ires- 
sages that have a severity code lower than the value of LI&EN. For ex- 
ample, if the filter code is X r all X and T messages are displayed; ho\r 
ever, I and W ires sages are not. The user can change the system default 
for LIMEN (see Appendix C for system defaults) by issuing a DEFAU1T com- 
mand with the new LIKEN value* (See "Implicit Operands" in Secticn 6 
for the possible values of LIMEM and Part III for a description of the 
DEFAULT command.) 

LENGTH AND TYPE : BREVITY is the operand name for message length and 
type. There are six different classifications for this operand, (See' 
Table 12, Part B. ) The shortest message is the message ID only. The 
standard message is the message ID and the message text. (The system 
supplies this version in the system message file. ) The extended iressage 
is an alternate message that is created at the installation and is used 
instead of the standard message. The user can specify that standard or 
extended messages be issued without their message ID. A reference mes- 
sage points to another message that contains the message text. The user 
prompter displays a message according to the value of BREVITY that is 
specified in the user profile. To alter the system default for message 
length and type # the user issues a DEFAULT command with the desired 
value for EREVITY. ( Note : R is not a default value for BREVITY, but is 
specified when the user creates a message that he wants to designate as 
a reference message. See the discussion on reference messages later in 
this secticn*) 

MODE : When a user is creating a message, he can specify that it be is- 
sued for conversational tasks, non conversational tasks, or both. He 
cannot modify this specification with the DEFAULT command. He specifies 
C, B, or A where: C messages are displayed only for conversational 
tasks, B messages only for non conversational tasks, and A messages fcr 
all tasks 9 regardless of mode. 



. A. LIMEN 

j Information 

I 

| Warning 

I 

| Serious Error 

I 

J Terminate Error 



Tatle 12. Filter codes 
| Code | | E. BREVITY |Code|| C. Mode of Task |Code| 

M 



I 

w 

X 
T 



| Message ID 
Standard 
Extended 
Standard, no ID 

Extended, no ID 
Reference 



S 
E 
T 
X 
R 



Conversational 
Nonconver sationa 1 
All 



.11- 



._!. 




MESSAGE FILE CONSTRUCTION 

The user's message file is a member of USERLIE? this member is called 
SYSMLF. Using the text- editing commands, the user can construct and 
maintain his own message file. To initiate this process, he enters: 

edit userlibCsysmlf ) f z0047 



82 



The seccnd parameter, Z00U7, is the message IE for the new message that 
is being added to the message file. (The message ID can be from cne to 
eight characters.) Notice that the parameter cccupies the RNAME (for 
region name) position in the EDIT command. Each message is contained in 
its own region in SYSMLF; the region name is the same as the message ID 
for the message. Now, since this is a new regicn in the SYSMLf data 
set, the system prompts with the first line number, line 100: 

User ; edit userlibCsysmlf ) ,z0047 
Syst em: 0000100 

Since standard messages are stored at line (see "Message Type and For- 
mat" later in this section), the user wants to put his new message at 
line 0: 

Sys,User : 0000100 _update 

(No prompt is issued by UPDATE. The keyboard is unlocked when the user 
can enter data. The user enters the following lines. ) 

User : wsa this is the message text 
_end 

The underscore at line 100 tells the editor that the user wants to enter 
a command; he enters the UPDATE command. Then, he enters the (for 
line 0), one blank only, the message filter code (foSA), one blank (more 
than cne blank is included as part of the message text), and the message 
text. The user has created message Z0047; the message reads, "this is 
the message text"; the filter code (wSA) means: ft — a warning message, 
8 — a standard message, and A — a message for all of his tasks, whether 
conversational or nonconversational. 

The user may require more than one line for the text of his message. He 
has issued the EDIT command for the existing message ID, Z0047 (see 
above), and the system has responded with line 100. He then enters: 

Sys,User : 0000100 _update 

wsa this message requires more than one line - 
10 wsa this is the continuation of the message 
_end 

In this example, the user has typed a continuation character (hyphen) at 
the end of line zero. (A blank precedes the hyphen so that the text of 
the lines will not be run together.) When the keyboard is unlocked, the 
user enters the next line, which can start with any line number from 1 
to 99. The next line must be in the same format as the previous line. 

Many messages require that variable text (in most cases, user -defined 
names) be inserted in specified positions in the message. These posi- 
tions are indicated in the body of the message by the elements $NN, 
where N can assume the integer values 1 through 2 and denotes the Nth 
element of the parameter sublist in the calling sequence. (Refer to the 
PRMPT macrc in Assembler User's Macro Instructions. ) 

REFERENCE MESSAGE 

The user prompter can be used to reduce the number of times a message 
may appear in the message file and still. main tain unique message IDs for 
every distinct call to a message. For example, if user message XYZ is 
established with text identical to the text of system message ABC, ires- 
sage XYZ can point to ABC rather than repeat the text cf ABC. Message 
XYZ is created as a reference message. 

To use a reference message the user must: 
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• Put an JR in the second position of the message classification code 
(for example, WRA) for a message that is referencing another ires- 
sage. One blank mast follow the message classification code. 

• Put the ID of the referenced message in the eight positions that im- 
mediately follow the blank. Blanks must be added to the end of the 
message ID if the ID does not occupy all eight positicns. 

• Put the line number of the references message in the seven positions 
of the line that immediately fellow the message IE. 

Example ; The construction of a reference message is as follows: 

WRAbABCfcbbbbOOOOOOO 

(In this example, the symbol t indicates a blank. ) This causes a refer- 
ence to line of message ABC whenever message XYZ is issued. A user is 
limited to 15 reference pointers in one chain in locating a desired 
text. 



MESSAGE TYPES AND FORMAT 

There are five types of messages in the message file: standard, extend- 
ed, response, explanation, and word explanation. All or any of these 
types can be used for each message ID. ( Note : in the examples below, 
one blank irust separate the message classification code from the line 
number, and one blank separates the line nuirber fron the message text.) 

• Standard message is a fcrief communication from a program to the 
user. A standard message always begins on line 0, and continuation 
lines can be on lines 1-99. (See the examples under "Message File 
Construction" above. ) 

• Extended message is an alternate message that is issued instead of 
the standard message. An extended message begins on line 100 and 
can be continued on lines 101-199. For example, the user wants to 
add an extended message for the existing message ID Z0047. He types 
in : 

User : edit userlib (sysmif ) ,z0047 
Sys,User : update 

100 wea this is an alternate message - 

10 5 wea to be used in place of the - 

110 wea standard message when brevity - 

115 wea has teen defaulted to e. 

_end 

If the user wishes to reference the text cf the extended message for 
XYZ005, instead of Z0047, he enters: 

100 wra xyz005tt0000100 

(You should make special note of the R in the secend position of the 
classification code and of the reference to line 0000100, where the 
text of the extended message is located.) 

• Response message can be in one of the three forirs listed fcelow. The 
response line begins on line 200 and can be continued on lines 201- 
299. Forms of response message: 

1. Text that states the possitle responses to the message. This 
line is used for messages with unpredictable responses, and it 
is issued when an EXPLAIN RESPONSE is entered by the user. 
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(SeePart III.) To add a response line for existing message ID 
MN041, which expects a response, the user enters: 

User : ^dit userlib(sysmlf ) ,mn041 

Sys,User : update 

200 wsa this line explains the- 

205 wsa expected response for - 

210 wsa message irnOUl 

_end 

When the user issues EXPLAIN RESPONSE, the system displays the 
text of line 200 and any continuation lines tin this case, lines 
205 and 210). 

2, A set of predictable response words (for exairple, yes or no) and 
their associated response codes. Each predictable response word 
irust have, as a response code, a unique positive integer. A 
response must be in the form 

wordl=codel,word2=code2,. . . ,wordn=coden 

and can be entered as follows (assume that the user has issued 
UPDATE and the keyboard is unlocked): 

200 wsa yes=l,no=2 

The codes are used ty the user prompter as return codes to the 
issuing program to indicate which respcnse was entered by the 
user. For the ex air.pl e just given, if the user issues EXPLAIN 
RESPONSE after a message is displayed, the system prints cut: 

VALID REPONSES ARE: YES, NO 

3. A response line can reference the response line (line 200) of 
another message. It must te set up in the same format as all 
reference messages (see the discussion on reference messages, 
above) . 

• Explanation message makes clear a standard message or an extended 
message. An explanation message begins on line 300 and can be con- 
tinued on lines 301-399. For example, the user wishes to add an ex- 
planation message fcr the existing message ID Z0047. He enters: 

Use r: edit userlit (sysmlf ) ,Z0047 
update 

300 wsa this line is displayed - 

305 wsa when the user enters - 

310 wsa explain immediately after the - 

315 wsa standard message at his terminal 
_end 

• Word explanation clarifies one or more words in a message. Word ex- 
planation messages begin on line 400 and above. For example, the 
user enters: 

User : edit userlib (sysmlf ) ,f f f 001 
0000100 ^update 

wsa this message contains references to wordl and word2 
400 wsa wordlbbbthese lines are for explanations 
500 wsa word2ttfcof words that appear in the standard message 
_end 

The first eight positions of the text are for the word to be 
explained, and the rest of the line is for the explanation. When 
the EXPLAIN command is issued, with a specific word as the operand. 
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immediately after a standard message is displayed, the lines start- 
ing with line 400 are searched to see if an explanation is available 
for the requested word. 

The format of a VISAM variafcle-length record is: 

4 12 19 20 



j record] message ID j line jnct j 

(length) (region name) | number |used| 



message 
text 






record length (maximum of 256 bytes) > 



The format of the message text (bytes 20-255) varies with the type of 
message. For all types of messages bytes 20-22 contain a message clas- 
sification code and byte 23 is blank. Bytes 24 to the end of the line 
contain different information, as shown in Table 13. You can use one of 
the numbered items (for each message type) shown under the content of 
the message. 



Table 13. Message content 



| Message Type | Content (Byte 24 to End of the Line) 



h- 


1 





. «._ , — _ — — «_«» . «. 


j 




Standard | (1) 


Message text 








(Line 0) | 










| (2) 


Bytes 24-31 
Bytes 32-3 8 
Bytes 39 on 


Reference message IE 
Reference line number 
Unused 




h 


4 

Extended J (1) 
(Line 100) | 


Message text 








| (2) 


Bytes 24-31 
Bytes 32-38 
Bytes 39 on 


Reference message ID 
Reference line nuirter 
Unused 




1 1 






j 


I 








i 




Response J (1) 


Explanation of 


response tc be entered 






(Line 200) \ 










| (2) 


wordl^codel ,wcrd2=code2, . . . ,wordn=coden 






1 (3) 


Bytes 24-31 
Bytes 32-38 
Bytes 39 on 


Reference message IE 
Reference line number 
Unused 




1- 


1 






i 


! 






— 1 




Message | ( 1) 


Message explanation text 






Explanation J 










(Line 300) ) (2) 


Bytes 24-31 
Bytes 32-3 8 
Bytes 39 on 


Reference message ID 
Reference line number 

Unused 




1 


„ - 1 , -.. 






— -i 


1 


1 




word | (1) 


Bytes 24-31 


Wcrd tc be explained 






Explanation ( 


Eytes 32 on 


Word explanation text 






(Line 400) \ 










| (2) 


Bytes 24-31 
Bytes 32-39 
Bytes 40-4 6 
Byte 4 7 
Eytes 48-55 
Bytes 56 on 


Word to be explained 
Reference message IE 
Reference line number 
Blank 

Reference word 
Unused 





i Note i The user 



must observe strict byte alignment in message fields. j 
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Word Explanation Scope 



The scope of word explanations varies, depending on the wcrd. For exam- 
ple, soire word explanations are universal in scope. Other word explana- 
tions are universal within a major component of TSS, such as the coirirand 
system. Still others are limited to the particular message in which 
they appear. Broad scopes are an advantage because fewer explanation 
records are needed, which reduces the size of the message file. The 
user can regulate the scope of word explanations to favor his particular 
operation. 

The scope of a word explanation is indicated by an eight-byte message 
IE. Explanations with universal scope have an ail-blank message ID 
(that is, a blank region name). For a scope restricted tc a single roes- 
sage, the full eight-byte message ID is used. Identification codes can 
be assigned in a pattern tc allow various levels of scope, between 
universal and fully restrictive. All message IDs fcr the command system 
start with CZA. Words whose meaning is universal in sccpe within the 
command system would have an identification code of CZA. If the scope 
were limited tc a particular module, say CZATP, the identification code 
would be CZATP. The scope is further restricted to a particular iressage 
by adding the final three digits, which are unique within the module. 

The user prompter has two one-tyte masks that allow users to control the 
user prompter's search for word explanations. One mask is for the sys- 
tem message file, and one is for the user message file. Each bit in the 
mask corresponds to one position in the ID of the message that contains 
the explainable word. For example, bits 0-7 in the sccpe mask corres- 
pond to positions 1-8 in the message ID. The scope mask indicates hew 
many positions iht the message ID are to be compared when a search is 
made for a word-explantion record. The user prompter scans the mask, 
starting on the right with tit 7. It looks for bits set to 1. Each 1 
bit found causes an access to the message file. The message file is 
searched for the message ID, beginning with position 1 and continuing 
through the position that corresponds to the mask bit that is one. 

For example, bits 7, 4, and 2 are turned on in- the user sccpe mask. A 
message with the ID ABCXX200 is issued. This message has an explainable 
word, DSNAME, and the user issues EXPLAIN DSNAME. In the search, all 
eight positions of the message ID are used first because bit 7 is on; 
therefore, lines 400 and above in the region AECXX200 are searched for 
the word DSNAME. Next, the lines 400 and above in the region ABCXX, if 
it exists, are searched because tit 4 is on; and then the lines 4 00 and 
above in the region ABC, if it exists, are searched because bit 2 is on. 
The all -blank region is searched last. If DSNAME is not found in the 
user message file or in the system message file, a diagnostic message is 
issued that indicates that no explanation is available. 

Both the system mask and the user mask are located in the character 
switch table, which is a section of the user profile (see Appendix C) . 
The user scope mask may be changed by using the MCAST command. The sys- 
tem mask and the user mask are set initially, as a part of the prototype 
profile. 
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SECTION 6: THE USER PRCFIIE 



The user profile is the data set tfcat controls the user's operating 
environment. It contains the default values for omitted operands, the 
values for implicit operands, synonyms that the user creates for coirirand 
names or operands, command symbols established with the PCS SET command 
(see Section 3), and a pair of character translation tables — one for 
input, and one for output. 

When a user is first connected to TSS, he is provided with a prototype 
profile; this contains cnly system-supplied default values, implicit 
operand values, and the translation tables (including certain miscel- 
laneous control characters that are described in Appendix C). Then, 
when the user first initiates a task (via LOGON), the system searches 
his user library (USERLIB) for a user profile (member SYSPRX) . if SYS- 
PRX cannot be found — this occurs when the user first legs on to the 
system or after he erases his profile -- the system uses the prototype 
profile member (SYSPRX) as the task profile. 

The user creates a user profile by issuing a PROFILE command. Then, 
when he logs on later, the SYSPRX member in his USERLIB is used to cre- 
ate his task profile- The prototype profile is not used as long as 
there is a USERLIB (SYSFRX) member for this user. The user can erase 
his user profile by issuing the following command: 

ERASE USERLIB (SYSPRX) 

r ■ 1 

SYSLIB j Prototype profile resides in SYSLIE as member SYSPRX. It is | 
(copied into storage if there is no user profile in USERLIE. j 



P JL_- 



dSERLIE (User's profile (member SYSPRX) is copied into storage from 
1 USERLIB every time a LOGON coirirand is issued. 

! I 

| LOGON (every session) ] PROFILE (whenever user wishes) 



x 



VIRTUAL [Changes made during task are entered on this copy; PROFILE | 
STORAGE | command causes task profile to replace the one in USERLIE. | 

L- . . . J 

The task profile controls the user's operating environment. The user 
can alter his task profile with the SYNONYM, DEFAULT, MCAST, and MCASTAB 
commands; then he can make the changes a part of his permanent user pro- 
tile with the PROFILE command. The user profile management commands are 
summarized in Table 14. 



| Com rr and 



Table 14. User profile management commands 

Function 



| SYNONYM 

I 

j DEFAULT 

I PROFILE 

| MCAST 

| MCASTAE 

L_ 



Rename commands, keywords, PCS operands, or command 

statements. 

Add, replace, or delete entries in default table. 

Make changes to task profile permanent in user profile, 

Alter miscellaneous control characters. 

Alter input and output translation tables. 



1 

I 
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SYNONYMS AND DEFAULTS 

The user can alter default values with the DEFAULT coirraand. Default 
values are used by the system when operands needed by the system are not 
included when the user enters a command. Appendix C shows the default 
values for the system operands. Note that not all operands have system- 
supplied default values. 

To change the default value for an operand, the user enters the DEFAULT 
command giving the name of the operand and the new value: 

default regsize=7 

The default value for the REGSIZE operand is now set to 7 for the 
remainder of the task, or until the user again alters it. This new 
value is set in the task profile. 

The user can rename keyword operands or commands with the SYNONYM com- 
mand. He enters the new name, an equal sign, and the old name: 

synonym p=pc? 

Now, when the user enters the P command, the system executes the PC? 
command. 

To remove the effects of a SYNONYM or DEFAULT command, the user enters 
the command this way: 



synonym p= (press RETURN) 
default regsize=( press RETURN) 



Since nc value appears to the right of the equal sign in these examples, 
the current settings are destroyed. Changes made with SYNCNYM and 
DEFAULT in this way are made to the task profile. If the user logs off 
and again legs on, the values in the new task profile are taken from the 
user profile cr the prototype profile, neither of which was changed. 

PROFILE COMMAND 

To make changes permanent, the user issues the PROFILE command after the 
DEFAULT or SYNONYM command. For example: 

default regsize=7 
profile 

Now, the value of REGSIZE is 7 in subsequent tasks until the user alters 
it. If the value is changed later, the user can make that value perma- 
nent with the PROFILE command. For example: 

default regsize= (press RETURN) 
profile 

IMPLICIT OPERANDS 

Implicit operands are not entered with any command. Rather, they con- 
trol certain aspects of the user's operating environment. For example, 
the LINEN0 implicit operand indicates whether the user wants the text 
editor to prompt with line numbers or tc unlock the keyboard and do no 
prompting. The system value is Y (line numbers are displayed). If the 
user does not want these line numbers (especially when a data set is ne- 

Section 6: The User Profile 89 



ing listed at the terminal) he can change the value cf LINENO with the 
DEFAULT command, just as he changed the value of a command operand* 

default lineno=n 

Again,, this change is made only in the task profile; the user can then 
issue the FRCFILE coirirand to make the change permanent in the user 
profile. 

default values for command operands and implicit operands are shown in 
Appendix C. Table 15 lists the implicit operands and their functions. 



Table 15. 



(Operand j 
i- +- 



Implicit operands 






CLEANUP 



controls cleanup 
of user attention- 
handling when EXIT 
is issued for a 
level 1 program 

controls record- 



CONPRMPT . 

concatenation 
prompt character 

CONREC | con trol s record - 
concat enat ion 
processing 



ALPHABET 



Function j System Default Value) ether Values | 
+ __ + , 



BREVITY 



I + 

DEPROMPT 



H 

DIAGREG 



flEXSW 



LIMEN 



controls character 
set used at the 
terminal 



message length 



prompting during 

ERASE and DELETE 

- + 



N - registers are 
not displayed 



controls display 
of registers 
during ABEND 

control characters 
used to indicate 
hexadecimal pro- 
cessing 



message severity 



LINENO j controls line 

number issuance 

ASMALIGN 



controls alignment 
of source code in 
assembler list 
data set 



-+ 



1 - folded mode 



standard without 
message IE 



Y - user attenticn- 
handling is 
cleaned up 



M - message ID 
E - extended message 
S - standard message 
X - extended without 

message ID 

N - user attention- 
handling is 
ignored 



Y - prompt character 
is issued 



no record- 
concatenation 
processing 









x% - indicates hexa- 
decimal input 
follows 



W - warning message 



+ 

Y - line numbers 
are issued 



Y - source code 
aligned 



2 - full EBCDIC 

3 - PTTC/6 

4 - PTTC/8 



N - no prompt 
character 



Y - record- 
concatenation 
processing is 

done 



Y - prompt for dis- 
position 



N - no prompt 
Y 



registers are 
displayed 



user defined 



I - information 
X - serious error 
T - terminate error 

+- 



N - no line numbers 
are issued 



N - source code not 
aligned 
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SECTICK 7; PROGRAM PRODUCT LANGUAGE INTERFACE (PPLI) 

PROGRAM PRODUCTS UNDER TSS 

TSS allows the execution of OS/VS compilers via interface modules. The 
compilers theirselves are not changed; restructuring of the object code 
after the program product is installed en a TSS systeir is done to allow 
the prograir product to execute under TSS. To provide suitable inter- 
faces, a certain degree of OS/VS simulation nas been implemented. 

The sequential, index-sequential, direct, and partitioned access methods 
are logically simulated? the data records are physically maintained in 
TSS formatted data sets and are processed internally tc simulate OS/VS 
data set characteristics. 

OS/VS Supervisor Call functions such as GETMAIN/FREHMAIN and TIME are 
simulated at the functional level. 

The simulation restrictions on CS/VS object programs executing under TSS 
are primarily related to VSAM , and telecommunications access methods. 
Functions related to multitasking are ignored. TSS restrictions remain 
in effect. 

PROGRAM PR ODUCTS SUPPORTED 

The IBM Program products supported are as fellows: 

5734-AS1 Assembler H 

5740 -CE1 VS COBOL Compiler £ library 

5734-E03 FORTRAN IV (H Extended) Compiler 

57 34-LM3 FORTRAN IV Library Mod II 

5734-PL1 PL/I Optimizing Compiler 

57 34-LM4 P L/I Resident Library 

5734-LM5 PL/ I Transient Library 

5734-PL3 PL/I Optimizing Compiler and Libraries. 

Note : Installation of these program products occurs using the PPREAD 
command (described in the System Programmer's Guide) and installation 
scripts supplied. 

PROGRAM PRODUCT LANGUAGE INTERFACE COMMANDS 

The PPLI commands are as follows: 

COBOL FILEREL BASK CSDD? PLICPT 

FILEDEI FTNH ODC OSRUN 

These commands are discussed in alphabetical sequence in the Command 
Section cf this manual. 
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PART III: COMMAND DESCRIPTIONS 



This part contains format illustrations, descriptions, and examples of 
the use of the commands. The commands appear in alphabetical order. 
The symbol is used in the left-hand margin to help you find a command. 

If you do not need detailed information on the format of a command, but 
need only a review of the operands, you should turn tc Appendix G. You 
should review Part I before you look at the corirand descriptions if you 
are not familiar with the way commands are described in this book. 

The format illustration of some commands show all operands within brac- 
kets ([ 3). This indicates that you do not have to enter any operand 
with the command. The action that the system takes when you do net spe- 
cify an operand is discussed with the command. If an operand can be 
entered in keyword format, the keyword is shown in all-capital letters. 
If an operand is in lowercase letters, you cannot use keyword notation. 



ABEND Command 

This command returns the user's task to the status that existed after 
the LOGON process. 

| Operation | Operand | 

| ABEND I | 

Note : There are no operands. 

Functional Description : When AEEND is executed, the current task is 
terminated. A new task is created, as if you had issued another LOGON 
command. All data set definitions, open data sets, and task variables 
are eliminated. 

Note : If you issue the command DEFAULT DIAGREG=Y before you issue 
ABEND, the system displays general register contents following the 
ABEND. The system default for DIAGREG is N. 

Example : Termination, using ABEND, is as follows: 

User: (press ATTENTION key once) 

System : ! 

Use r: abend 

Syst em: TASK DELETED BY CCMKAND 

NEW TASK LOGGED ON AT 11:12 ON 06/09/71. TASKIC = 00 2D 

ABENDREG Ccmmand 

This command displays the contents of general registers when AEENE oc- 
curred and the location within your task where the ABEND occurred. 

| Operation | Operand I 

| ABENDREG | I 

i jl J 

Note : There are no operands. 
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Functional Description : After your task has teen abnormally terminated 
by the system, or after you have entered the ABEND command, you may use 
the ABENDREG command to display the general registers at the time termi- 
nation occurred. No display occurs if your task has not teen terminated 
abnormally. 

Example : Your task has just teen abnormally terminated, and you want to 
see the contents of the general registers at termination: 

User : abendreg 
System : 

ABEND IN PRIV PRG C2ASBC +000902, LAST USER LOG AT CFftCBC +000318 

USER GRS 003CH7A8 00007U38 00113000 0001177A 00006BC0 00008058 00112000 00000017 

00008054 00539DEC 0000804C 00006200 00011000 00007020 001125D8 00000008 
PRIV GRS 000000FF 000598F8 00000008 00000048 000117M0 00135E76 001351B8 0001C549 

00000000 00001000 00H2FOBC 001C68AC 000593A8 00059*40 001C6902 001BCOOO 

ASM Command 

This command invokes the assembler to assemble a source program module. 

J T . . . n 

| Operation | Operand | 

ASM | NAME=*nodule name [ ,STCREE={ Y 1 N>3 

I [,MACROLIB=( {data definition name of symbolic portion, 

| data definition name of index portion} [,. . . 3 ) 3 

j [,VERID=version identification) C,ISD = CY1N> 3 [,SYKLIST={ Y J N} ] 

j [,ASMLIST={Y|N}3 [ ,CRLIST=CY| N| E3 3 

j C,STEDIT=CY|N>3 C ,ISDLIST={ Y| N>3 I ,PMDIIST={ Y| *} 3 

j | E f LISTDS={Y|N}3 [,LINCR=( first line number , increment) 3 

L — J. . . J 

NAME 

identifies the object module to be created. 

If the source program module (that is, the source language data 
set) is prestored, the user must have named it SOURCE. name. If it 
is net prestored, the system automatically prefixes SOURCE, to the 
source program module name. The listing data set is automatically 
named LI ST. name (0) . 

Specified as : the part of the source program module name that fol- 
lows SOURCE., if the source program is prestored; otherwise, any 
name from one to eight alphameric characters long. The first 
character must be alphabetic. The object module name must be 
unique to the library in which it is stored. See Assembler Pro- 
grammer's Guide for a complete list of naming rules. 

STORED 

specifies whether or not the source program module is prestored 
(that is, whether or not the data set SOURCE. name exists). 

Specified as ; 

Y - source program is prestored. 

N - source program is not prestored. 

System default ; N. 

MACROLIB 

specifies the data definition name cf the symbolic portion of the 
supplementary macro library tc be used and the data definition name 
of the index portion of that library. Both names must have been 
defined by DDEF commands within the current task. The user can 
specify a maximum of six libraries (that is, six pairs of data 
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definition names), which are searched in the opposite order in 
which they were specified; the systeir iracrc library (SYSMAC) is 
nrade available to the user automatically and is searched last. 

Specified as : the data definition names defined in the CDEF 
coirrrands . 

System default ; only the systeir iracrc library is used. 

VERID 

specifies the version identification to be assigned to the object 
program. 

Specified as : froir one to eight alphameric characters. 

System default : the listing and the object modules are time stamped 

ISD 

specifies whether an internal symbcl dictionary (ISD) is to be 
produced. 

Specified as : 

Y - ISD is produced. 

N - ISE is not produced. 

Systeir default : Y. 

SYMLIST 

specifies whether a symbolic source program listing is to be 
produced. 

Specified as : 

Y - listing is produced. 

N - listing is not produced. 

Systeir default : K. 

ASMLIST 

specifies whether an object prograir listing is to be produced. 

Specified as : 

Y - listing is produced. 

N - listing is not produced. 

Systeir default : Y. 

CRLIST 

specifies whether a cross-reference listing is to be produced. 

Specified as : 

Y - cross-reference listing is produced. 

N - cross-reference listing is not produced. 

E - cross-reference listing of only the symbols actually used is 
produced. 

System default : N. 

STEDIT 

specifies whether the edited symbol table is to be listed. 
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Specified as : 

Y - edited symbol table is listed. 

N - edited symbol table is not listed. 

Syst err default : N . 

ISDLIST 

specifies whether an ISD listing is tc be produced. 

Specified as : 

Y - ISD listing is produced. 

N - ISC listing is not produced. 

Systeir default : K. 

PMDLIST 

specifies whether a program mcdule dictionary (PMD) listing is to 
be produced. 

Specified as : 

Y - PWD listing is produced. 

N - VM£ listing is not produced. 

Systeir default : N. 

LI SID S 

determines whether the user- requested listings from the assenbler 
are tc be placed in a list data set or are tc be placed directly on 
SYSOUT. 

Specified as : 

Y - listings are placed in list data set. 
N - listings to SYS0U1. 

Systeir default : Y. 

LINCR 

specifies the first line nuir.ber of the source language data set and 
the increment to be applied to get succeeding line numbers. 

Specified as : two three- to seven-digit decimal numbers, separated 
by a comma and enclosed in parentheses; the last two digits in each 
number must be zeros. 

System default : (100,100). 

Note : This operand is ignored when STOREE=Y. 

There is also an operand called the ASMALIGN operand. ASMALIGN is not 
an operand of the ASM command, tut is instead an implicit operand (Sec- 
tion 6, Part II explains implicit operands). ASMALIGN controls the ali- 
gnment of the source statements in the assembler list data set. 

If you issue DEFAULT ASKALIGN=Y prior to issuing the ASM command, all 
names, operation codes, and operands in your source cede will be aligned 
in columns 1, 10, and 16 (respectively) in the list data set. ASMALIGN 35 
Y is the system default; if you desire alignment and haven't specified 
otherwise, alignment is automatic. However if you do not want your 
source statements aligned, issue DEFAULT ASMALIGN=N prior to issuing the 
ASM command, and your source statements will appear in the list data set 
just as you entered them. 
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Functional Description : See "Language Processing* in Section 3 of Part 
II. 

Caution : The command is canceled if invalid operands are entered. 

Examples : (refer also to Assembler Programmer' s Guide ) 

1. The user wants to assemble a ^restored scurce program (SOURCE. 
IRISH); he wants an ISD and a source program listing: 

User: asm irish,y # isd=y 

The system assembles the program SOURCE. IRISH and acknowledges suc- 
cessful assembly by prompting with an underscore. 

2. The user wants to assemble a program as he enters it. The ccirirands 
and data he enters from the terminal are as follows: 

Sys,User : asm tester f n,symlist=y 

0000100 save (14,12) 

0000200 1 14,71(0,13) 

0000300 st 14,8(0,13) 

0000400 st 13,4(0,14 

0000400 E *** OPERAND FIELD IMPROPERLY DELIMITED 

0000400 ST 13,4(0,14 

#400, st 13,4(0,14) 

# 

0000500 Ir 13,% 

0000500 I *** STATEMENT CONTAINS INVALID CHARACTER 

0000500 LR 13,% 

#500, lr 13,14 

# 



0002600 end 

MODIFICATIONS? 

n 

0000 200 W *** OPERAND REQUIRES FULL- WORD BOUNDARY 

MINOR ERRORS 

3. The user wants to create his own macro instruction library fcr use 
with the assembler. The data definition narre cf the macro instruc- 
tion library VISAM data set must be SCURCE; the data definition 
name of the macro instruction library index VSAM data set must te 
INDEX. The index is created to facilitate reference to the library 
by use of an IBM utility program, SYSINDEX. 

User : ddef source, vi, myl ib 
edit nrylib 

The user creates a VISAM data set. He will use the symbol ) as a 
header flag character. 

Sys,User : 0000100 )macrol 

Line 100 is the header of MACFC1. Lines 200 through 600, which are 
the text of MACROl, are not shown. 

0000700 )macro2 

Line 700 is the header of MACR02. Lines 8 00 thrcugh 1500, which 
are text of MACRC2 , are not shown. The user enas processing of the 
EDIT command (see EDIT) as follows: 
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00001600 _end 

Next, the user defines a macro instruction library index and calls 
SYSINDEX. 

User: ddef index ,vs,myndx* 
sys index 

The system prompts the user for control statements. 

Sy s , User : header=) f length=8 

asm myprog,y, (source, index) 

The user assembles his progranr. 

AT Coirirand 

This command requests notification when execution of an object program 
reaches specific instruction locations, AT also designates the object 
program instruction locations at which the commands following AT in the 
dynamic statement are to be executed. 



f T ., 

Operation | Operand | 

j. + j 

| AT (instruction location [, . • . 3 j 

instruction location 

specifies the location of an instruction within an object module. 

Specified as : an internal or external symbol, with or without off- 
set cr subscript, or a hexadecimal address. 

Funct icna 1 Pes cri pt ion : AT becomes effective when control arrives at 
the instruction location specified in the cperand, but before the in- 
struction at that location is executed. A command statement containing 
an AT is called a dynamic statement. Only one £T iray be included in a 
dynamic statement , and it must be the first command in the statement. 
(See "Use of Command statements" in Section 3 of Part II. Note the list 
of commands that can be used after AT. ) The system assigns a number to 
each dynamic statement. This number may be referenced by the FEMCVE 
command. 

When an AT command is executed, a standard output (including the in- 
struction location where the command became effective, program status 
information, and the statement number is presented to the user. If 
LIMEN is not set to I , enly the dynamic statement nurrter is displayed. 
If the AT is a conditional statement, the dynamic statement number is 
displayed only if the condition is true. The program status information 
includes the virtual storage location of the instruction being executed, 
the instruction length code, the condition code, and the program mask. 
If the user refers to an instruction location in a shared program or in 
a system program, a diagnostic message is issued, and the command is 
ignored for that location. A diagnostic is also issued if the instruc- 
tion location contains a supervisor call (SVC) operation requiring para- 
meters that must follow the SVC. 

The counter, referred to by the special character % 9 is assigned to a 
dynamic statement and is incremented by one when the program arrives at 
an instruction location designated in the AT coirirand. The counter is 
incremented even when the dynamic statement is conditional if the speci- 
fied location is reached. The counter may be used as an operand in the 
other PCS commands within the ^statement. The AT command alone will 
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interrupt, but not stop, prograir execution. (See "Types of Operand 
Specifications" in Section 3 of Part II.) 

Caution : The user should not designate an instruct icn location that was 
modified by program execution. If he does, the results are unpredict- 
able. Also, since PCS only checks that the AT location is on a halfword 
boundary, the user roust be careful to put the hi command at the begin- 
ning of an instruction, not: in the middle. 

programing Notes ; If AT specifies FCRTSAN statement numbers as in- 
struction locations, the numbers must only designate executable FCBTFAN 
statements . 

Example : The user wants to be informed when his prcgranr reaches the 
locations PGM. Si, PGM. S3. (4), FTNPGK. 98 , and FTNPGM.98( 5) . 

To acccuplish this. 

User: at pgm.sl,pgm.s3. ( **) ,ftnpgm. 98,ftnpgir. 98 (5) 

Syst eir: 00001 

Execution of the program begins. When control arrives at any of the in- 
struction locations, the user is notified. For example, the systeir 
prints cut the following line (assuming LIMEN=I) when it reaches the 
third location specified in the coirirand: 

S yst eir: AT FTNPGN..98 PSW 13 0003F076 0001 

In this statement 

FTNPGM.98 is the instruction location 

PSW 13 003F076 is the program status 

0001 is the statement number assigned by the systeir 

Note: If IIMEN had not been set to I, only 0001 would have been printed 
by the system. 

BACK Coirirand 

This command converts the user's conversational task to a nonconversa- 
tional task. 



{ T . . ^ 

I Operation (Operand | 

± + f 

(BACK |DSNAME=data set name 1 

DSNAME 

identifies the cataloged VSAM or VISAM line data set (new SYSIN) 
that contains the series of commands that complete the current task 
in nonconversational mode. 

Specified as : a fully qualified data set name. 

Functional Description : If space for a nonconversaticnal task is avail- 
able, the user's task is accepted for execution, and a batch sequence 
number (BSN) is assigned to tha task. Control of the task is passed to 
a new SYS1N. The nonconversational task takes its commands from the 
SYSIN data set named in the BACF operand field. The SYSIN data set 
should conclude with a LOGOFF command; if it does not, the system per- 
forms the LOGOFF operation and issues a diagnostic message. 

If space for a nonconversational task is not available fcr the user's 
task, the HACK command is rejected. This allows the user to continue 

98 



his task in conversational mode, as though he had not issued the BACK 
command . 

A BACK command is not accepted if the system is being shut down. 

Caution : If private devices are needed by a nonconversational task that 
is initiated by the BACK command, each device must be either: (1) as- 
signed to the task by an active data definition (DDEF), or C2> reserved 
by a SECURE command, which must be the first command (other than GO of 
the SYSIN dataset. 

Programming Notes : The BACK command is ignored by the system when it is 
issued by a ncnconversational task. 

After issuing the BACK command, the user must re- issue the LOGON coirirand 
to begin a new conversational task. 

If the BACK command is rejected, the user can re-issue the command 
later. It may be necessary to first modify the new SYSIN data set to 
reflect any further conversational processing that has been done. 

If the user interrupts a program that is being executed when he issues 
the BACK command, the first command in his SYSIN data set should be GC, 
which causes program execution to resume at the point of interruption. 

When the user wants to initiate a nonconversational task that does net 
require a prior conversational phase, he should use the EXECUTE command. 
The data set named as SYSIN in the EXECUTE command, unlike that named in 
the BACK command, must begin with LOGON and conclude with LOGOFF, and 
must be on public storage. 

Example s Ihe user wants to change his conversational task to nonconver- 
sational, using the data set ALPHA as SYSIN for his nonconversational 
task. He issues the BACK command as follows: 

User : back alpha 
Syste m: BSN=0001 

TERMINAL LOGICALLY DISCONNECTED, RECONNECT OR HANG UP 

BEGIN Command 

This command connects the user's task to an MTT application program run- 
ning under TSS. 

I T ~ 1 

| Operation | Operands | 

(BEGIN (application name C, application parameters] j 

application name 

specifies the user-written application program name. 

Specified as : from one to eight alphameric characters. 

application parameters 

specifies the user-written operand parameters (if any) that are 
entered according to the requirements of the application. 

Note : The application program must define a means by which its current 
users may elect to be disconnected. Once the user is connected to the 
application program, any commands that have been defined by the applica- 
tion program can be entered. 
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BLIP Command 



The "BLIP 1 command allows the user to receive assurance that the system 
is still active and the terminal is connected. This command is only 
valid for 27<*l"s or their equivalent.' 



, 1 

1 Operation | Operand 

,. + „ _ 

| BLIP J TIME=, *READ= 



TIME 



♦READ 



the decimal value given is the number cf seconds between the sig- 
nals tc the user. If is entered, no assurance signal will fce 
given by the system. 

Specified as ; # cr 15 through 255 (seconds). 

System default: 30 (seconds). 

) 

If REAE is specified and the terminal has the 'Receive Interrupt 
Feature* the system will interrupt a read request tc send the 
assurance signal as long as the user has not entered any data. 

Specified as: 

Y = interrupt a read. 

N = dc net interrupt read. 



System default: 



N 



Functional Description: The system causes the type ball on the terminal 
to "wiggle 1 by transmitting alternating upper case - lower case shift 
characters. 

The period between the transmitting of the characters is determined by 
the "TIME 1 parameter. 

If the TIME is zero, then no transnission occurs. 

If the user has specified READ=Y, and the terminal has the correct fea- 
ture, the system will interrupt a read to send the 'ball wiggle" 
transmission. 

The system will not interrupt a read request if the user has started 
entering data. 

Programming Notes: The blip is supported only on 2741 type terminals. 
If the user specifies READ=Y for a terminal without the correct feature, 
the system will attempt the character transmission, but because the ter- 
minal will be in the wrong mode, the ball wiggle will not be seen by the 
user. 

Also, any characters entered by the user during this period will fce 
lost. 

The system attempts to prevent loss of data by not interrupting a read 
once the user has started entering data, but because of hardware con- 
straints, there is a very small period of time when the user may enter a 
character and the system will interrupt to send the "tall wiggle"; at 
that time, any data entered is lost. 



100 



Example: User enters: 

ELIP 15 

The system will blip-wiggle the type ball every 15 seconds as long as 
there are no other reads or messages to be written to the terminal. 

If the user wishes to turn off the ball wiggle, he enters: 

ELIP 

The system will not wiggle the ball again until the user enters a new 
BLIP TIME value. 



BLIP? Command 

BLIP? is used to display the current BLIP settings • 



t T -j 

(Operation | Operand I 

(BLIP? I 1 

Note: This command has no operands. 

Functional Description : BLIP? will display the current BLIP settings 
in the following format: 

CURRENT VALUES ARE: 
TIME XX 
READ ACTIVE/NOT ACTIVE 

The time value is the decimal number of seccnds between ELIPS. Read Ac- 
tive specifies that a read will be interrupted to cause the type ball to 
wiggle. 



BRANCH Command 

This command changes the control path of a prcgrair cr resumes execution 
of a program at a different location. 



f T -, 

| Operation | Operand | 

j. + f 

(BRANCH I INS1LOC instruction location | 

L .X 1 

INSTLCC 

specifies the location of an instruction within an ofcject module at 
which execution is to resume. 

Specified as : an explicitly or implicitly qualified internal sym- 
bol, with or without offset; an external symbol, with or without 
offset; cr a hexadecimal address. 

Functional Description : If the user has interrupted a program, BRANCH 
can t>e used to resume execution of the program at a different location. 
BRANCH can also be used as part of a dynamic statement to alter the path 
of a program. 
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Cautions ; BRANCH should be the last command in a command statement con- 
taining more than one command. If not, commands that fellow BRANCH are 
ignored. 

BRANCH cannct he used to initiate execution of a program. 

Programming Notes ; When the user wants to use internal symbols in the 
INSTLOC operand, he must have requested an ISD when assembling or com- 
piling his program. 

Exairples ; 

1. The user has stopped execution of his prcgracr (which has an ISD). 
He wants to resume execution at an instruction location labeled 
with the internal symbol LCCA. He issues the following command: 

User ; branch pgm.loca 

The system resumes execution at LOCA. 

2. The user wants to alter the execution path of his program (PROG) 
froir location PTA to PTC. He issues the following command: 

User : qualify prog 

at pta ; branch ptc 
prog 

The system passes control to PTC when execution reaches PTA. (See 
"Program Control 11 in Section 3 of Fart II.) 

BUTLTIN Coamand 

This command defines an object program (which was written in assembler 
language) that the user can invoke as a command. (See Section 4 of Part 
II.) 

f Operation | Operand | 

, ^ 4 

(BUILTIN |NAME=comroand name [ ,EXTNAME=bpkd macro name] | 

I | [,PROLIB=data set name] j 

L J J 

NAME 

designates the name of the command that calls the object program. 

Specified as : from one to eight characters, none of which can be 
eir bedded blanks, commas, semicolons, equal signs, or apostrophes. 

EXTNAME 

is the external symbol assigned as the name of the EPKD macro in- 
struction (BUILT IN procedure key definer); see Assembler User Macro 
In str uctions . This name becomes the external name of the called 
program and is the link between the command and the routine to be 
called. 

Specified as : from one to eight alphameric characters, the first 
of which must be alphabetic. 

System default : the value given in NAME is assumed. 

PROLIB 

specifies the data set in which the BUTLTIN is stored. 
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Specified as ; the name of a VPAM data set. If this data set does 
not exist, it will be created. The BUTL1IN is stored in the SYSPRC 
member of the data set. 

System default : USERLIE. 

Procpramming Notes ; If the user wants tc define operands for his com- 
mand, he rrust supply the coding within his module to handle the parame- 
ter values supplied when the module is called. The BPKD macro instruc- 
tion can De supplied in the object code as part of the PSECT or CSECT 
and must include the definitions of the expected parameters. The macro 
instruction must also supply the names needed to provide linkage between 
the module and the BUILTIfc command that defines that module. Refer to 
Assembler User Macro Instructions for a further description. 
The user can define operands and supply operand values when his user- 
written command is issued. 

^ote: If the command BUII1IN is stored in a data set other than USER- 
LIB, the command will net be available until the data set becomes USER- 
LIB or until the BUILTIN command is put in USERLIB. 

C, CA, and CB Commands 

These commands transfer input control from the user's 1052 Printer- 
Keyboard tc the attached 1056 Card Reader. 

r t ' 1 

(Operation (Operand J 

|c I i 

L JL . . J 



j Operation j Operand j 

|CA | | 

L X -J 



j Operation j Operand j 

|CB I 1 

L X J 

Note: These commands have no operands. 

Functional Description : The C, CA, and CE commands indicate to the sys- 
tem that input will come from the 1056 Card Reader, rather than from the 
attached 1052 Printer -Keyboard. Tc use these commands, the user places 
his card deck in the 10 56 Card Reader, and then he issues the appropri- 
ate command (C, CA, or CB) from the printer-keyboard. The system reads 
cards from the card reader until the user presses the ATTENTION key en 
the terminal or until the system reads a K, KA # or KE card from the card 
reader. The system then reads further input from the printer-keyboard. 

These three commands also control the character set that is used en card 
input. The definitions are as follows: 

C — transfers control to the card reader: if keyboard mode was KA, 
CA will be card reader mode; if keyboard mode was KB, CB will be 
card reader mode. 

CA — transfers control to the card reader; card input is converted 
from 1057 card-punch code to EBCDIC. This command can be used 
to change the AIPHAEET operand without transferring control. 
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CE — transfers control to the card reader; card input is converted 

from 029 card-punch code tc EBCDIC. This ecmirand can be used to 
change the ALPHABET operand without transferring control. 

Note: The CA and CB commands set the ALPHABET operand. 

Example ; The user wants to shift from keyboard input mcde to card read- 
er input mode. 

User : C 

The system reads input from the attached 1056 Card Reader. If the ter- 
minal mode was KB, card mode is CB; if the terminal mode was KA r card 
mode is CA. 

CALL Command 

This conrrand invokes an object module or a PL/I procedure. 

f T 1 

I Operation | Operand | 

JCALL J [NAME=entry point name) £ f module parameters] j 



NAME 

identifies the module to be invoked. 

Specified as : a module name cr external entry pcint without off- 
set. (FORTRAN users should use only main-prograir names; otherwise, 
the results are unpredictatle. PL/I users should use only OPTIONS 
(MAIN) procedure names.) 

System default : the last module referenced by the system is 
called. 

module parameters 

specifies the parameters associated with the ircdule being called; 
when a module expects parameters, all parameters must be specified, 
including the commas representing null values, whether or not the 
parameters are normally def aultable. Parameters may only take 
forirs acceptable to PCS. These are as fellows: 

• A command variable 

• A quoted string 

• A decimal integer 

• A floating-point number 

• A hexadecimal string 

• A register 

Specified as : the parameters, separated by commas, expected by the 
module. A maximum of five parameters is allowed. 

Systeir default : the module called does not expect parameters. 

Functional Description : CALL invokes the dynamic leader and passes to 
it the name of the module specified. If a module was not specified, 
CALL passes control to the module most recently referenced by one of 
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these coirirands: PLI, ASM, LNK, FTK, LOAD, UNLOAD, CALL with a specified 
module name, or an implicit call. Modules implicitly referenced fcy the 
specified module are also loaded. The called module is invoked via 
standard type-1 linkage. CALL passes control to a module that is alrea- 
dy loaded, when the specified module cannot be found, a diagnostic mes- 
sage is issued. 

When the called module receives control, register 1 contains a pointer 
to a parameter list if parameters were entered. This list is preceded 
by a word containing the number of parameters entered. Each word in the 
parameter list contains a pointer to the actual parameter entered. Each 
parameter is preceded by a byte containing the length of the parameter, 
unless the parameter is a command variable and a register. In this 
case, no length is given. If a parameter is defaulted (denoted by two 
successive commas), the corresponding pointer in the parameter list is 
zero. 

Cautions If the module called during execution of a dynamic statement 
has dynamic statements embedded in it, the results are unpredictable. 

Programming Notes : A module can be invoked by either the CALL command 
or by a direct call (see below). A direct call follows the command sys- 
tem syrrbol-resolution process in which PROCDEFs take precedence over 
modules. If a module and a PPCCEEF have the sane name, the PRCCDEF is 
invoked by a direct call. In this case, a CALL command must be used to 
invoke the irodule. 

CALL may be used to initiate execution of a module that is already 
loaded. When you call a PL/I program tc execute, ycu must use the 
module name. 

Examples ; 

1. The user wants to compile and execute program fcYPRG. 
User ; ftn myprg 

The system compiles and stores myprg. 

User ; call 

The systeir invokes MYPRG. 

2. The user wants to call module XYZ and to pass five parameters. 

User : call xyz , pari , , ,par*l 

Syste m: Cinvokes XYZ and places a pointer tc the parameter list 
in register 1. 

3. The user wants to call module XYZ and to pass one real-value 
parameter. 

User: call xyz, , $$*#S>* i 

Syste ir: (invokes XYZ and places a pointer to the parameter list 
in register 1. 

Direct Call 

When the user wants to load and execute an object prcgram, he may do so 
by entering the module name and the operands expected as parameters by 
the module. The system leads the irodule (and any implicitly referenced 
modules) and passes control to the module. 
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When a PROCEEF and a module have the same name, the PRCCDEF is called. 
The CALL command invokes the module. 

When the specified module or PROCDEF cannot be found, a diagnostic mes- 
sage is issued. 

When a ircdule expects parameters, all parameters must be specified, in- 
cluding commas for null values. Parameters are passed to the module as 
described above. 

Caution ; A direct call is not permitted in a dynamic statement. 

Examples : 

1. Load and execute module AEC. 
User s abc 

The system invokes AEC. 

2. Load ircdule ABC, pass parameters X, Y, and Z, and execute. 

User : abc x,y,z 

The system invokes AEC and places a pointer tc the parameter list 
in register 1. 



CANCEL Command 

This command eliminates a nonconversational task or jcb. 

| Operation jcperand | 

(CANCEL (BSN=batch sequence number j 

L J J 

BSN 

identifies the nonconversational task to be canceled. 

Specified as : a one- to four-digit ESN assigned by the system when 
the ncnccnversational task was established. 

Functional Description : When a task is canceled during its execution, 
the devices reserved for its use are released and the pages of storage 
it was using are freed; the SYSOUT, although probably incomplete, is 
printed and includes a message indicating the reason for task 
termination. 

A task that is canceled before it starts execution receives no explicit 
sign of cancellation. 

The user is informed if the task cannot be found. 

Programming Notes : The user may cancel any of his nonconversational 
tasks p including those initiated through the bulk output commands. 

Example : The user wants to cancel the ncnconversaticnal task (before 
execution) identified as ESN 1214. 

User : execute xyz 

System : BSN = 1214 
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User: cancel bsn=121** 



System : CANCEL ACCEPTED 



CATALOG Copirand 

This conmand creates a catalog index for a generation data group cr 
renames a data set. 

The CATALOG command, depending on the objective , takes cne of two forms. 

Forir 1 

I ' T ' 1 

| Operation | Operand | 

^_ H 4 

(CATALOG |DSNAME=current data set narae£,STATE={N|U} ] [,ACC={F| U}] J 

| | [,NEWNAME=new data set name] j 

i — 1 x . 1 

Form 2 

r t ' 1 

) Operation (Operand | 

(CATALOG |GDG=generation data group name,GNO=number cf generations j 
| j [,ACTION=CA|0}J [,ERASE=(Y|N>) | 

DSNAME 

identifies the data set. VAM data sets nust be cataloged; physical 
sequential data sets must be defined by a EEEF command within the 
current task or must be cataloged. The data set must reside on a 
direct access device or on a magnetic tape volume. 

Specified as : a fully qualified data set name, which must net have 
an absolute generation number appended. 

STATE 

specifies whether this is the updating of an existing catalog entry 
or the creation of a new catalog entry. 

Specified as ; 

N - new. 
U - update. 

System default ; K. 

ACC 

specifies the access qualification for the data set. 

Specified as ; 

R - read-only. 
U - unlimited. 

Default ; U, if the catalog entry is new; otherwise, no change is 
made to the access qualification. 

NEWHAJME 

designates the new name for the data set. 

Specified as ; a fully qualified data set name. 
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Systeir default : the data set name is unchanged. 



GDG 



GNO 



identifies a new generation data group. 

Specified as : a generation data group name? the maximum number of 
characters is 26. 

Note: This operand must ke given in keyword format. 

indicates the number cf generations tc be maintained in the genera* 
ticn data group. 

Specified as : a one- to three-digit decimal number; the maximum 
value is 255. 

ACTION 

specifies the action to be taken when the GNC value plus one 
generation is being cataloged in the generation data group. 

Specified as : 

A - all previous generations are to be removed from catalog. 
- only the oldest generation is to be removed. 

S ysteir default : C 

ERASE 

designates the disposition of old generation data sets deleted from 
the catalog. Disposition applies tc private data sets only? pufclic 
data sets are always erased when uncataloged. 

Specified as : 

Y - eld generation data sets to be erased. 
N - eld generation data sets to be saved. 

Systeir default : N. 

Functional Description : CATALOG offers these options: 

1. Rename a VAM or physical sequential data set (Form 1) 

2. Create or alter a catalog entry for a physical sequential data set 

(fcrir 1) 

3. Create a generation data group (GDG) for VAM or physical sequential 
data sets (Form 2) 

When a data set is renamed, the system changes the data set labels on 
the direct access volumes containing the data set. 

When a physical sequential data set is cataloged, the system enters the 
specified data set name into the user's catalog and assigns to the data 
set the access qualification specified by the user. If a data set name 
is specified with a member name, the data sfct name, not the appended 
member name, is cataloged. 

When a GCG is created, the system enters the GEG name in the catalog and 
stores information pertaining to the maximum number of generations tc be 
maintained, what is to happen when that number is exceeded, and the dis- 
position of the deleted generations. 
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A generation of a GDG can be cataloged with either an absolute or rela- 
tive generation number. When the relative number is used, the system 
automatically assigns the proper atsolute generation number to the 
generation and prints that number. When the user catalogs a generation 
to a GDG and exceeds the maximum number of generations maintained, the 
system removes all generations or the oldest generation, depending on 
the option selected by the user. 

Note : All VAM data sets, both public and private, are cataloged auto- 
matically by the system when they are created. 

Caution ; The user should not rename data sets that reside on magnetic 
tape volumes? he may lose the data sets if he renames them in his cata- 
log. CATALOG (Form 1) cannot be used to update the entry for a GEG. 

Programming Notes ; To change the catalog entry for a GDG, use this 
procedure: 

1. Temporarily catalog each member as a separate data set by renaming 
it. For example: 

catalog sampieds (0) ,u, ,sampledsl 

2. Delete the GDG by using the DELETE command. 

3. Define a new GDG by using the CATALOG command, specifying the new 
options desired. 

4. Add the temporarily cataloged members to the QTG by renaming their 
the original name. (Use the NEWNAME operand.) 

Once a GDG has been cataloged, the user can add generations to the 
group. When he creates a VAM data set and names it as a generation (by 
appending a generation number) of a GDG, the system catalogs the genera- 
tion. Uncataloged physical sequential data sets can be added as genera- 
tions with CATALOG (Form IK Eoth VAFj and physical sequential data sets 
that are already cataloged can become generations of a GDG by renaming 
them with CATALOG (Form 1). 

A data set may be renamed as a generation of a generation data grcup by 
using the NEWNAME operand (Form 1). The new name must te specified as a 
generation level, for example, name(+l). If the data set being renamed 
is the first generation in the group. Form 2 of the CATALOG command must 
be entered first to create a catalog index for the generation data 
group. 

A new generation can be cataloged with either an absolute or relative 
generation number; any cataloged generation can be referenced with ei- 
ther number. When using relative numbers, the user must know the actual 
generation being referenced. The newest generation has relative genera- 
tion number 0. 

If a private VAM data set is deleted from the catalog, the EVV command, 
not CATALOG, must be used to reenter the data set in the catalog. 

A user who has been granted unlimited sharing access to cne or more 
levels of another user's catalog may add entries to that catalog. When 
naming such entries, the user must include, qualifiers with the same 
names that he assigned to his SHAFE command f cr that catalog. Similar- 
ly, if he wants to rename a shared data set, he may only rename the 
SHARE qualifier as a part of the new name. The sharer cannot change the 
owner's catalog. 

tthen cataloging a new physical sequential data set, the user can use the 
NEWKAME operand to specify a second name, and that name is assigned to 
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the catalog entry. For example, a data set created under OS or OS/VS 
may have a name that is too long; with NEWNAME, the user can renane it 
to suit TSS requirements. 

Examples : 

1. The user wants to rename data set X.X2 to SIKUL.SK. To get the 
catalog entry changed , he enters: 

User : catalog x.x2 ,u,newn ame=s imul.sk 



2. The user wants to catalog ASET as a new 10-generation data group. 
Ey defaults, he indicates that only the oldest generation is to be 
removed and saved when the eleventh (GNO+1) generation is 
cataloged. 

User : catalog gnc=10 ,gdg=aset 

The system creates a catalog index entry. 

3. The user wants to catalog a new generation of generation data group 
ASET. It is assumed that the generation has been cataloged: 

User : catalog xgz ,u, , aset (+1) 

Note : The system automatically issues the absclute generation num- 
ber assigned to the generation. The user may refer to that genera- 
tion by absolute generation number or by relative generation nuir- 
ber. The relative generation number of the irost recently cataloged 

generation is always 0. 

**. In a subsequent task, the user wants to catalog another new genera- 
tion cf generation data group ASET. The new generation is assumed 
to have been cataloged: 

User : catalog abc,u, ,aset (+1) 

Note: The relative generation number correlates with the next a- 
vailable absolute generation number. The user must know the rela- 
tionship between relative and absolute generation numbers whenever 
he uses relative generation numbers. However, he can always refer 
to generations by relative generation numbers. 

5. A user (user2> wants to add the previously defined physical sequen- 
tial private data set DO. FILE. B«* from the owner's Cuserl) catalog. 
Userl issues a PERMIT command to grant user2 unlimited access -to 
the entire catalog. User2 , in a SHARE command, assigns the name DO 
to this catalog; he catalogs the new data set with unlimited 
access. 

Userl : permit *all,user2,u 

User2: share do,userl ,ownerds=*all 

ddef ddni,dsname=do. file. b4,disp=new 

catalog do.f ile. b**,n,u 

The system creates a catalog entry for DO. FILE. B** in the catalog 
for user 2. 
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CB Command 

(See C f CA, and CB Commands) 

C DD Comma nd 

This command retrieves cne cr more EBEF ccirirands that have teen pre- 
stored in a cataloged line data set and processes those commands. 

[Operation [Operand | 

^ + _ f 

| CDD |BSKAME=data set name, 1 

| j{ data definition name) (data definition name [,...]) } j 



DSNAME 

identifies the cataloged line data set that ccntains prestcred EEEF 
ccnmards. 

Specified as ; a fully qualified data set naire. 

data definition name 

identifies the particular EEEF commands to be retrieved in the 
referenced data set. 

Spe cified as : the data definition name or names of the EEEF ccir- 
irands tc fce retrieved. When two or more data definition names are 
entered, they mist fce enclosed in parentheses. 

System default : all EEEF commands in the referenced data set are 
to he retrieved. 

Note: This operand must fce specified positionally. 

Functional Description : The CEE coirirand retrieves cne cr more BDEF com- 
mands from the specified data set and processes them. The user can thus 
create a cataloged line data set of commonly used DDEF commands and re- 
fer to them by the CDD command, thereby relieving himself of direct CBEF 
command entry. Each BDEF command that is executed is printed out in 
full. Any EBEF commands that contain invalid operands are displaced, as 
are diagnostic messages issued by DDEF. 

Cautions: Each data definition name must be unique within the task. 
The prestcred data set must contain BDEF commands only. A diagnostic 
message is issued if data or if any other command appears in the data 
set. These error lines are ignored and are net printed. The conversa- 
tional user has the option of either skipping the erroneous records in 
the data set or canceling the CEB command; a nonccnversational task is 
terminated. 

Programming Notes : The user can retrieve and enter all prestored BDEF 
commands in the data set by omitting the data definition name operand. 
If the user wants to retrieve a selected set of these commands, he must 
supply the data definition names of the selected DDEF commands when he 
enters the CDD command. 

Examples s 

1. The user wants to execute three DDEF commands that are stored in 
the cataloged line data set PAYROLL. BE. The three EBEF commands, 
with data definition names NOW1, N0W2, and NCW3, are assumed to be 
in the data set. 
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User : cdd payroll. dd, Cnowl,now2,now3 > 

The system processes the DDEF commands in the data set # and then 
prints information similar to the following: 

DDEF N0W1,VI,DSNAME=WINDUP,DISP=CLD 
DDEF NOW2,VI,DSNAME=GOONNU,DISP=CLD 
DDEF NOW3,VS,DSNAME=STAR,DISP=CLD 

2. The user wants to execute a DDEF command with DDNAME JBACCT in data 
set PAYROLL. P. 

User : cdd payroll. p r jbacct 

The system processes the specified DDEF command and then prints in- 
formation similar to the following: 

DDEF JBACCT ,PS,DSNAME=LEAD. T,DCB = (DEN=2) , 
UNIT=(TA,9 ),VOLUME=(, 043591 ) ,LABEL=(2, SL,RETPD=2) , 
DISP=OLD 

CDS Command 

This command copies a data set or specified members of a partitioned 
data set. 



r 1 1 

| Operation | Operand | 

H 



| CDS |DSN AM El= input data set namel (member name [,...]) ], j 

I j DSNAME2=copy data set nameC (member name)] j 

1 JC,ERASE={Y|N}] £ , CCPY3ASE=f irst line number, | 

| j COPYINCR= increment] [,REPLACE={R| 1} ] | 

DSNAME1 

identifies the data set to be copied; VAM data sets roust be cata- 
loged; physical sequential data sets must already be defined by a 
DDEF command within the current task or must be cataloged. 

Specified as : a fully qualified data set name and (optionally) 
member names of a VPAM data set. When specified, the member names 
are separated by commas and enclosed in parentheses, and they imme- 
diately follow the VPAM data set name. 

Note : A PS data set can only be copied to another PS data set. 

DSNAME2 

specifies the data set name to be assigned to the copy of the data 
set. The data set can be already defined by a DDEF command within 
the current task. Otherwise, CDS defines it with the same data set 
organization as DSNAMEl. 

Specified as : a fully qualified data set name and (optionally) a 
member name must be of a VPAM data set. The member name must be 
enclosed in parentheses and must immediately follow the VPAM data 
set name. When multiple members of the input data set are speci- 
fied, the data set copy must be a partitioned data set with no mem- 
ber names specified. If not, the CDS command is canceled and the 
user receives a diagnostic message. 

Note : A PS data set can only be copied to another PS data set. 

ERASE 

specifies whether the original data set or data set member residing 
on direct access storage is to be erased after it has been copied. 

Specified as : * ~ data set to be erased. 
N - data set to be saved. 
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System default : N. 

Note: If the user shares, but does not own, the data set being 
copied, he cannot specify its erasure unless his access is unlimit- 
ed; if he has read-only access, this operand is ignored. If the 
data set being copied is physical sequential, this operand is 
ignored. 

COPYBASE 

identifies the starting line number of the data set copy when 
renumbering is desired. 

Specified as : from one to seven decimal digits. An all-zero 
starting line number is invalid. 

System default : no renumbering occurs; COPYINCR must also be 
defaulted. 

COPYINCR 

designates the value by which line numbers in the data set copy are 
to be incremented when renumbering. 

Specified as : from one to seven decimal digits. An all-zero in- 
crement is invalid. 

System default : 100, when renumbering. 

Note : COPYBASE and COPYINCR may only be specified for line data 
set copies. When COPYBASE and COPYINCR are specified for a line 
data set copy, the first seven bytes of each record in the copy are 
the line numbers, and the eighth byte is the origin character. 
Thus, when a VSAM data set is the source for a line data set copy, 
the first eight bytes of each source record are overlaid with line 
numbers. When a line data set is source to a line data set copy, 
the source record line numbers are overlaid with the new line 
numbers. 

REPLACE 

allows the user to specify that duplicate members are replacements 
or are to be ignored with a suitable diagnostic. 

Specified as : 

R - replace an existing member in the data set copy with a member 

from the input data set. 
I - ignore any member in the input data set that is duplicated in 

the data set copy. 

System default : R. 

Note : When COPYBASE and COPYINCR are specified, this operand is 
ignored. 

Functional Description : The CDS command has two functions. The first 
function is to merge or overlay members of one partitioned data set with 
members of another partitioned data set. (The character! stcis of the 
data sets are presented in Table 16. ) This is known as member process- 
ing. The user specifies the function with the following restrictions: 

1. DSNAME1 and DSNAME2 must be names of virtual partitioned data sets. 

2. DSNAME2 has no member name specified with it. 

3. DSNAME1 may have one member name, a list of member names, or no 
member names specified with it. 

Member processing causes the specified members of DSNAMEl (if no member 
name is specified, all members are processed) to be copied into DSNAME2 
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with duplicate members handled according to the specification for the 
REPIACE operand. The CCPYBASE and COPYINCR parameters have no meaning 
in this type of processing. 

When CDS does member processing it moves member name aliases and user 
data along with the data and the member name. The CDS command can be 
used to copy a program library? all the aliases are preserved. However, 
if an alias for a member of the input data set is an alias for a it ember 
that is not being replaced in the output data set, the copy of that 
input member is not made. 



Table 16. Characteristics of data sets that are used by CDS 



Dat 
Organ 



Source 



a Set 
ization 

Copy 



i 



f- 
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Source and Copy 
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On either 
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tape volume 



h 



-4 



— f 



VI 

vs 

VI 

vs 



h 



vs 



VI 



VI 
VS 

vs 

VI 

+ 

VS or VI 
member of 
VPAM data 
set 

VS or VI 
member of 
VPAM data 
set 



Must be stored 
on direct 
access volume 



Must be cata- 
loged, or de- 
fined by pre- 
vious EDEF in 
current task 
i 

Must be cata- 
loged 



Source data set 
and VPAM data 
set receiving 
member must be 
on direct 
access volumes 



Must be cata- 
loged 



h 



VS member 
of VPAM 
data set 
| 

VI member 
of VPAM 
data set 

I- 

VS member 
of VPAM 
data set 

VI member 
of VPAM 
data set 



VS 
VI 



VI 
VS 



1 



VS or VI 
member of 
VPAM data 
set 

VS or VI 
member of 
VPAM data 
set 



VPAM data set 
provides source 
and copy data 
set, stored on 
direct access 
volumes 



4 



VPAM data 
set must be 
cataloged 



Can be defined 
by previous DDEF 
in current task 



Can te defined by 
previous DDEF in 
current task, un- 
less new member of 
existing cataloged 
data set 



Can be defined by a 
previous DDEF in the 
current task 



^ 



JL- 



VPAM data sets 
stored on 
direct access 

volumes 



VPAM data set must be cataloged 



1 



Whenever a member is not copied, because of a duplicated alias or be- 
cause REPLACE=I, CDS issues a message that contains the name of the mem- 
ber and the reason the member was not copied. 



11«* 



The second function is to copy any data set or member of a data set and 
make it another data set or member of another data set. (See Table 16.) 
This function has the following restrictions: 

1. DSNAMEl and DSNAME2 may be the names of any type of data set. 

2. If DSNAMEl or DSNAME2 are virtual partitioned data sets, only one 
member name must be specified. 

The REPLACE operand has no meaning for this function. 

When a starting line number is specified, the lines of the output data 
set are numbered. The specified or default increment value is used, and 
the line numbering within the original data set is not affected. 

Cautions : If this function is used to create a member of a virtual par- 
titioned data set, no user data or aliases are provided. The CDS com- 
mand is restricted to data sets on direct access or magnetic tape 
volumes. CDS cannot be used to change record formats. 

A copy of a member of a partitioned data set may have VISAM or VSAM 
organization. 

The user may specify a VISAM organization for a data set copy even 
though the original data set organization is VSAM. Each record of the 
data set must contain a key. The user must use a EDEF command to speci- 
fy the new data set organization (VS), the key length (KEYLEN), the pad- 
ding (PAD), and the key position (RKP). If the user fails to provide 
these optional values (except PAD), and his task is conversational, he 
is prompted for the values. If the task is non conversational, no copy 
is made. The PAD operand is optional? and if it is omitted, it is 
assumed to be zero. 

Examples ; 

1- The user wants to copy the cataloged VISAM data set FIRSTL, which 
will be a VSAM data set named TWIN. FIRSTL. He does not want to 
erase the original data set. He enters the following command: 

User : ddef ddnz ,vs,dsname=tw in. f irstl 
cds f irstl , twin. f irstl 

2. The user wants to copy three members, A, E, and C, from LIB1, a 
VPAM data set, into LIB2, a VPAM data set that has members named A 
and C. He wishes to replace members A and C and add B. Both data 
sets are cataloged. The command he enters is: 

User : cds libl (a,b,c) ,lib2, ,,,r 

The system copies members A, B, and C with aliases and user data. 

3. The user wants to copy a VISAM member A from LIB1, a VPAM data set, 
into LIB2, also a VPAM data set, with the name A maintained for the 
new member in LIB2. He also wishes to renumber A with a base of 50 
and an increment of 10. He enters the following command: 

User : cds libl(A) ,lib2(A) , ,oopybase=50,copyincr=10 

The system copies member A with all aliases and user data lost. 
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4. The user wants to merge the VPAM data sets LIB1 and LIB2. He 
enters: 

User : cds libl,lib2, , , ,i 

The system copies all members from LIB1 into LIB2 unless a dupli- 
cate member name is found in LIB2, in which case that member is 
ignored. All aliases and user data are copied. 

5. The user wants to copy VSAM data set SEQ.DATA, and he wants to make 
it a VISAM data set named VI. DATA. He wants to use a unique man 
number as a key in the fourth through sixth bytes of each record. 
The original data set contains fixed-length records, 512 bytes 
long. He enters the following commands: 

User : ddef dd2 ,vi ,dsnaroe=vi. data,dcb= ( reef m=f , lrecl=512, - 

rkp= 3 , keyl en=3 , PAD=10 ) 
cds seq. data ,vi. data 

The system copies the data set. 

6. The user has a 9-track tape (volume serial number 000126) that con- 
tains BSAM data sets. He wants to copy the third file on the tape 
onto a scratch tape. The serial number of the scratch tape will be 

supplied to the system by the operator. 

User : ddef tapel ,ps,dsname=source.run, disp=old, unit=(ta, 9) ,- 

volume=( ,000126) # label=3 

ddef tape2,ps,dsname=source. oopy,disp=new, unit=(ta,9) ,- 
volume=( private) 
cds source. run, source. copy 

The system copies the data set. 



CHGPASS Command 

This command will change, add, or remove your password. 

(Operation (Operand j 

j. _, j 

(CHGPASS | [NEWPASWD=password] | 

NEWPASWD 

specifies your new password 

Specified as : from one to eight alphameric or special characters 
(except tab, comma, backspace, percent sign, equal sign, and left 
and right parentheses). 

System default : if you do not enter the operand, the system over 
types a line that is a prompt for you to enter a password. 

Functional Description : CHGPASS adds, changes, or removes your 

password. 

If you enter the command without the operand, the system prints out a 
message that prompts you for the new password and prints an overtyped 
area in which you enter the new password. After you enter the new pass- 
word, the system validates it and prompts you for your current password. 
You enter your current password in an overtyped area. If the current 
password is valid, the new password becomes your current password. 
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If you enter the operand of this command, the specified password becomes 
your new password after you have successfully entered your current 
password. 

If you wish to nullify a previous password, but do not wish to replace 
it, enter the command with no operand. When you receive the overtyped 
line, press the RETURN key on your terminal. 

Examples ; 

1. You wish to enter a new password as am operand: 

User : chgpass passwd2 

The system prompts you to enter your current password by printing a 
message and an overtyped line. 

User : oldpass 

The system replaces your old password — oldpass -- with the new 
password — passwd2. 

2. You wish to enter a new password with password security: 

User : chgpass 

The system prompts you to enter your new password and prints an 
overtyped line. 

User : passwd3 

The system prompts you for your current password and prints an 
overtyped line. 

User : oldpass 

3. You wish to nullify your password, but you do not wish to replace 
it with a new password. You enter: 

User : chgpass 

The system prompts you for your new password and prints an over- 
typed line. 

User : (presses the RETURN key to default the password) 

The system prompts you for your current password and prints an 
overtyped line. 

User : oldpass 



CLOSE Command 

This command closes a user's data sets when the normal path of process- 
ing is interrupted, either by the system or by the user, and the data 
set cannot be closed at the program level. 

I Operation | Operand | 

[CLOSE | [DSNAME=data set name] I,TYPE=T1 | 

1 I [ f BENAME=data definition name] j 
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DSNAME 

the name of the data set to be closed. 

Specified as : the f'ully or partially qualified name of the data 
set or data sets to fce closed. 

System default ; All user data sets, with the exception of USERLIB, 
are closed if a DDNAKE parameter is not specified. 

TYPE 

a temporary close (TYPE=T) is to be performed for the user's data 
sets . 

Specified as : T 

System default : A normal close is performed. 

DDNAME 

the data definition name of the data set to be closed or the lead- 
ing characters of a data definition name that are common to a group 
of data sets that are to fce closed. 

Specified as : from one to eight alphameric characters, the first 
of which is alphabetic, or a quoted string. If the quoted string 
is not eight characters, it is padded to that length with blanks. 

System default : The data set specified by a fully qualified data 
set name, or all the data sets identified by a partially qualified 
name, or all user data sets except USERLIE when DSNAME is defaulted 
are closed. 

Functional Description : The system looks for the data sets you speci- 
fied in the command. If a data set is found and it is a user data set 
that is not a JOBLIB, it is closed. If the data set cannot be closed, 
the system issues a message. The system issues a message, also, if the 
data set cannot be found. 

This command should be used when your task or program is abnormally ter- 
minated, either by you or by the system. If you are not sure that data 
sets have been closed, issue the CLOSE command for your data sets. Con- 
trol is returned to you after CLOSE has been executed; that is, CLOSE 
does not terminate abnormally. 

Programming Notes : This command closes data sets belonging to a user? 
it cannot be used to close system data sets. 

The default of data set name does not cause the user's USERLIB to be 
closed; USERLIB is closed only when explicitly specified. If both DSNAME 
and DDNAME are specified and the data set name is partially qualified, 
only the data set with the specified data definition name is closed. 

If the specified data set is a job library (JOBLIB) , all DCBs are closed 
except the system DCB that makes the data set a JOBLIB (USERLIB is de- 
fined as a JOBLIB). The RELEASE command can be used to close this DCB 
and release the JOBLIB. 

A group of data sets can fce closed with the DDNAME operand by specifying 
the leading characters of the data definition name that are common to 
the group (for example, FT for FORTRAN data sets). 

Caution : TYPE=T must not be specified for duplexed VAM data sets. 

The following conditions occur when the CLOSE command is used and TYPE=T 
has been specified. (1) PROCDEFs cannot be executed after the command 
has been executed for USERLIB, and messages in the user's SYSMLF cannot 
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be issued until the user issues another LOGON for the task. (2) The 
command closes all open members of a partitioned data set. Therefore, 
issue a FIND macro instruction for the partitioned data set before con- 
tinuing processing from a program, or reissue the EDIT command before 
continuing processing with the text-editing commands. 



COBOL Command 



This command will invoke the OS/VS COBOL prog r air product using the Pro- 
gram Product Language Interface. 



| operation j Operand 

I COBOL | NAME=modulename ( , OSCPTS= (optl , opt 2 , . . . ) ] 

| j I f SOURCEDS=sourcedsname3 



NAME 

identifies the name by which the object program will be known to 
TSS. It consists of one to eight alphameric characters, the first 
of which is alphabetic. If the SOURCEDS option is not specified, 
there must exist a dataset called SOURCE. name which is assumed to 
be the source program to be compiled. 

OSOPTS 

specifies a list of OS/VS options to be in effect during the 
compilation. 





Significant 




Significant 




Significant 


Option 


Characters 


Option 


Characters 


Option 


Characters 


LINECNT 


CNT 


XREF 


XRE 


VERB 


VER 


SEQ 


SEQ 


BATCH 


BAT 


ZWE 


ZWB 


FLAGE (W) 


LAG,LAGW 


NAME 


NAM 


ENDJOB 


END 


SIZE 


SIZ 


SXREF 


SXR 


TEST 


TES 


BUF 


BUF 


STATE 


STA 


LVL 


LVL 


SOURCE 


SOU 


TERM 


TER 


ADV 


ADV 


DECK 


DEC 


NUM 


NUM 


COUNT 


OOU 


LOAD 


LOA 






DUMP 


DUM 


SPACE 


ACE 


LIB 


LIB 


LSTONLY/LSTCOMP 


LSTO/LSTC 


DMAP 


DMA 


SYMDMP 


SYM 


LCOL1/LCOL2 


CL1/CL2 


PMAP 


PMA 


OPTIMIZE 


OPT 


FDECK 


FDE 


SUPMAP 


SUP 


SYNTAX 


SYN 


CDECK 


CDE 


CLIST 


CUE 


CSYNTAX 


CSY 


L132/L120 


L13/L12 


TRUNC 


TRU 


RESIDENT 


RES 


VBSUM 


VBS 


APOST 


APO 


DYNAM 


DYN 


VBREF 


VBR 


QUOTE 


QUO 


SYSx 


SYS 







The compiler options are as follows: 

[SIZE=YYYYYYY3 C,BUF=YYYYYY] C , SOURCE | NCSOURCE 3 [ , DMAP I NOEMAP I 

UPMAPI NOPMAP ] [, SUPMAP J NCSUPMAP] [, LOAD J NOLO AD 1 I, DECK | NO DECK 3 

C , SEQ | NOSEQ1 I ,LINECNT=nnl [, TRUNC I NOTRUNC ] [ ,CLISTl N0CLIST 3 

[,FLAGW|FLAGEl C , QUOTE 1 APOST 3 [ ,SPACE1 1 SPACE2 |SPACE33 £,STATEl NOSTATE 3 

[,XREF|NOXREF3 I , SXREF 1 NOSXREF 3 t ,NAME|NONAME3 (,BATCBXNOEATCH3 

(,TERMlNOTERM3 C, PRINT 1 NOPRI NT t (*|dsname)}] C a SYMDMP 1 NOSYMDMP 3 
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£ ,OPTIMI ZE 1 NOOPTIMIZE 1 I , SYNTAX I NOSYNTAX 3 £ ,LVL=A | E \ C| D3 

CTESTl NOTEST l C , ENDJQB | NQENDJQB 3 [ ,C SYNTAX 1 N0C SYNTAX ] 

^RESIDENT [ NOR ESI DENT 3 [ , DYNAM 1 NOD YNAM 3 £ , VERB | NO VERB 3 £,ZWB|NOZWB3 

£,SYST|SYSx3 1 [ y ADVl NOADV 3 C, COUNT 1 NOCOUNT 3 £ , DUMP 1 NO DUMP 3 

[ , LSTONLYl LSTCOMP 1 NOLST3 a £ ,LCCLl | ICCL2 3 2 [ ,FEECK | NOFDEOC3 a 

£,CDECK| NQDECK 3 [L132|L1203 [ .VBSUM 1 NOVBSUM 3 I , VBREF) NOVBREF 3 

*-If the information specified contains any special characters, it 
must he delimited by single quotation marks instead of parentheses. 
If the only special character contained in the value is a coirma, 
the value may be enclosed in parentheses or quotation marks. The 
maximum number of characters allowed between the delimiting quota- 
tion marks or parentheses is 100. 

a These options are used to request the lister feature. 

Additional information is available in Appendix J, and the OS/VS COBOL 
Programmer's Guide. 

SOURCEDS 

specifies the name of the input dataset to be compiled. 



CONTEXT Coirmand 

This coirmand replaces a string of characters within one line, a range of 
lines, or all lines in a region or in a data set with another character 
string. 



j Operation (Operand j 

^ + „j 

| CONTEXT | (Nl=starting position3 [ , N2=ending positicn3 , \ 

| | , STRINGl=search string £ ,STRING2=replacement string3 \ 



Ml 



N2 
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identifies the line or first line of a range of lines in the cur- 
rent region or data set that is to be searched for STRING1. 

Specified as ; a one- to seven-digit line number in decimal that 
may be absolute or relative. 

LAST - last line in the current region. 

Note ; When the user wants to start the search at a character posi- 
tion other than the first character position of the specified line, 
he can specify the starting position as an absolute one- to four- 
digit decimal number enclosed in parentheses and iirmediately fol- 
lowing tne line number. The first character of text is position 1. 

System default : When N2 is specified, the value of the CLP is 
assumed; otherwise, the entire data set or region is searched from 
the beginning. 

identifies the last of a range of lines in the current region or 
data set that is to be searched for STRING1. 



Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 

Note ; When the user wants to "end the search at any character posi- 
tion other than the last character position of the specified line, 
he can specify the ending position as an absolute one- to four- 
digit decimal number enclosed in parentheses and immediately fol- 
lowing the line number. This ending character is included in 
correction processing. The first character of text is position 1. 

System default ; When Nl is specified , it is the only line 
searched; otherwise, the entire data set or region is searched from 
the beginning. 

STRINGl 

designates the character string (called search argument) that is to 
be searched for within the range Nl to N2. The character string 
must be located in one line or it will not be found. 

Specified as ; a normal or quoted string; it may not be null. 

STRING 2 

designates the character string that is to replace all occurrences 
of STRING1 in the range Nl to N2. 

Specified as ; A normal or quoted string. 

System default ; Each occurrence of STRINGl is deleted. 

Functional Description ; Wherever STRINGl is found, the system replaces 
it with STRING 2. STRINGl and STRING2 need not be the same length. If 
the replacement string is longer than the search string, the line is ex- 
tended to make room for the replacement string? if the replacement str- 
ing is shorter, the line is processed so that no extra spaces remain in 
the line after the command is executed. 

If STRINGl is not specified, the user is warned, and the command is 
ignored. If STRINGl and STRING2 are enclosed in apostrophes, the apos- 
trophes are stripped off before execution of CONTEXT. After execution, 
the CLP is set to the line following the last line processed (N2) ; the 
user is prompted for another command. If N2 is the last line in the 
data set or region, CLP is* set to N2 plus the value of INCR. 

Caution ; A language- processing command (EDIT, PR0CC1F, or PLI) must be 
invoked before the CONTEXT command is issued. 

If you use CONTEXT or CORRECT to update a line of a source progranr that 
was entered via punched cards, you must maintain punched-card format. 

Programming Notes ; The CONTEXT coirirand can be used tc replace symbols 
in source language modules. In this use, STRINGl is the original sym- 
bol, and STRING2 is its replacement. This command can be used for any 
source language data set if the data set is a region or line data set. 

Since CONTEXT does not display the lines in which string replacement has 
occurred, the user may want to use the LIST command following CONTEXT. 

Examples ; A data set contains 20 lines, numbered from 100 through 2000. 

1. The user wants to replace the string ABCEEF with UVWXYZ. He 
enters ; 
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User : context , # afccdef f uvwxyz 

2. The user wants to replace occurrences of ABCDEF that appear in 
lines 500 through 1000* He enters s 

User : context 500 f 10QO,atcdef # uvwxyz 

The system searches lines 500 through 1000 , replacing ABCDEF with 
UVWXYZ, and issues: 

3. The user wants to replace ABCDEF only in the first 50 character 
positions of line 1200 (assume CLP-IOOOK He enters: 

User : context +2, +2(50) , abcdef f uvwxyz 

4. The user wants to delete ABCDEF* He specifies an explicit null 
string in the command (assume CLP=1000). Be enters: 

User s context -3 r last f afccdef 
System : _ 

5* The user wants to replace in a region the string JOHN'S HOU3I with 
another string. He enters: 

User : context 0,last, ■ john* 9 s house 1 , ■* J8/#$ i 

The system searches entire region, replaces JOIN'S HOUSE with *!$/ 
#$, and issues: 



CORRECT Command 

This command changes characters or inserts characters in one or more 
lines of the current region or data set. 



f T ' " w-~~- « — - 1 

Operation | Operand | 



CORRECT j (Nl=starting linel [,N2=ending llneJC#SCOL»8tarting column] 

| £ r CORMARK=repl a cement correction character s] t # CHAR=(C|M|H>] J 



Nl 



N2 



identifies the line or first line of a range of lines to be 
corrected. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 

System default : The value of CLP within the region. 

identifies the line or last line of a range of lines to be 
corrected. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 
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System default : Nl is assumed if specified? otherwise, the value 
of CLP within the region is assumed. 

SCOL 

specifies the character position within the text of each line, from 
Nl to N2, at which correction is to begin. All characters to the 
left of this position are ignored. The line to be corrected is 
displayed starting at the SCOL position, and if the logical line 
length exceeds the physical line length capacity of the output ter- 
minal, only the physical line containing the character specified by 
SCOL is displayed. 

Note : The first character position of data is position 1. 

Specified as : from one to four decimal digits » 

System default : position 1. 

CORMARK 

identifies the correction characters that are to replace the stand- 
ard correction characters. The standard correction characters 
(*$a%#) are replaced from the left by a direct substitution. Any 
that are not entered are assumed to be unchanged. All characters 
up to the one to be changed must be entered. 

Specified as : a normal or quoted string. 

System default : The standard correction character. 

The standard correction characters, or the corresponding replacement 
correction characters, and their functions, are: 

* — duplicates the character directly above the * and all characters 

to the right of that character — until either the next correc- 
tion character or the end of line is encountered. 

$ — duplicates the character directly above the $. All replacement 
characters on the correction line are substituted for the corre- 
sponding characters on the original line until either the next 
correction character or end of the original line is encountered. 

a — duplicates the character directly above the a. If the a is im- 
mediately followed by another correction character or by the end 
of the line, characters from the replacement line are inserted 
immediately after the character that is above the a. The rest 
of the line is moved to the right to make room for the inser- 
tion. If the a is not immediately followed by another correc- 
tion character or by the end of the line the number of spaces 
between the a and the next correction character (or the end of 
the line, if no other correction character follows the a) mark 
the characters in the original line that are replaced by the 
characters in the replacement line. 

X — removes the character directly above the %. All characters to 
the right of the character above the % are shifted left one po- 
sition, and all other characters to the right of that character 
are duplicated until either the next correction character or the 
end of line is encountered. 

# — functions as does the a, except that hexadecimal characters are 

inserted and this symbol cannot be the last character in the 
line before the carriage return. CSee "Caution,* below.) 

CHAR 

indicates the type of input expected. 

Specified as : 
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C - character (the line is displayed in character notation) 
H - hexadecimal (the line is displayed in hexadecimal) 
M - mixed (functions the same as CHAR = H for input and display of 
the line) 

System default ; C. 

Note : If CHAR=H and the user enters nonhexadecimal data, the CORRECT 
command is canceled. Also, if CHAR=H, hexadecimal data is expected fol- 
lowing the 8 and the # characters, and the $ character may input hexade- 
cimal data in the correction line. If CHAR=C the # character can be 
used to enter hexadecimal replacement characters. 

Functional Description : When one line is specified to be corrected, the 
system displays that line. You enter a correction line (a line that 
contains the correction or the correction characters, or both). Until 
the system detects a correction character in the correction line, it 
replaces the characters in the original line with those given in the 
correction line. The system prompts you for a replacement line if the a 
or the # characters are used to indicate replacement. If LIMEN is 
defaulted to I f the system prompts with a message for you to enter the 
replacement line; otherwise, only the keyboard is unlocked to indicate 
that the replacement line can be entered. 

An end of line in a field marked by *, $, or % within the correction 
line causes the remainder of the original line to be duplicated. An end 
of line in a field marked by $ terminates the line. 

Following execution of the CORRECT command, the CLP is set to the next 
line after N2 (or N2 plus the value of INCR if N2 is the last line), and 
the user is prompted for a command. 

Caution : Unprintable EBCDIC characters in the text appear as spaces 
when the line to be corrected is displayed unless CBAR=M or CHAR=B is 
specified. A language-processing command (EDIT, PROCDEF, or PLI) must 
be invoked before the command is entered. 

You can make a record longer by inserting data (use the a correction 
character, for example). You cannot add data to the end of a record. 
If you do, the system cancels the operation and prints a message. 

If the # correction character is the last character in the line before 
the carriage return, the line is canceled. 

If you use CONTEXT or CCRRECT to update a line from a source data set 
that was entered via punched cards, you must iraintain punch-card format 
on that line. (Column 72 is still used for the continuation character.) 

Examples : In the following examples, the user enters the CORRECT com- 
mand, specifying the line to be corrected. The system displays the 
line, as it exists. The user enters the correction line (the third line 
in the examples) and a replacement line (fifth line), if one is 
required. 

1- User : correct 400 
System : STEMS3660 
User : a* $ *% 

System : ENTER REPLACEMENT LINE 
User : ys 
Sys,User : list 400 
System : 0000400 SYSTEM 360 
CLP SET TO 0000500 

In the example the a in the correction line caused the YS from the 
replacement line to be inserted after the character that appears 
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above the 8 in the original line; the $ followed by a blank caused 
the blank to replace the character above it CS); and the * caused 
the character above it (6) to be deleted and all following charac- 
ters to be shifted to the left. The characters above the • were 
duplicated until the next correction character was found. 

2« User : correct 104 
System s COMPVTE XI 
User ; * $u* 
Sys, User s list 104 
System s 0000104 COMPUTE XI 
CLP SET TO 0000105 

In the example the $ followed by the U caused the U to replace the 
character above the $. 

3* User s correct 27 

System s CONTNUE 

User s * d 

System s ENTER REPLACEMENT LINE 

User s i 

Sys , User s list 27 

System s 0000027 CONTINUE 

CLP SET TO 0000028 

Again, in this example the a is used to indicate an insertion after 

the T. 



Users 


correct 15 


Systems 


XYZ 1345 CC MPTE X 


Users 


abed * % d 


Systems 


ENTER REPLACEMENT LINE 


Users 


1 3,4, 5du 


Sys, Users 


list 15 


Systems 


0000015 ABC L 3,4 f 5 COMPUTE X 




CLP SET TO 0000016 



In the example XYZ is replaced by ABC; the four blanks immediately 
after the a in the correction line indicate that the characters in 
the replacement line are to replace the characters above the 
blanks; the blank between the O and M is deleted; and the U is 
inserted. 

In the following example, the user has a data set named PARTS. 
Positions 15-18 of lines 300-800 contain a year that is incorrect. 
He issues the following sequence of commands to get the errors 
corrected. 

User s list 300(15) ,800(18) 

System s 1966 

1966 

1956 

1966 

1866 

k866 

CLP SET TO 0000900 
User s correct 300,800 

( Note s the system does not print out any data. The keyboard is 
unlocked and the user enters his correction, using the conventions 
described above.) 

User ; * $1968* 
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DATA Coirroand 

This command creates either a line data set or a VSAM data set. 



j Operation j Operand 

| DATA JDSNAME=data set name 

| | ,RTYPE={I|LINE|FTN|CARDI S> 

j | [,DBASE=f irst line number) I ,DINCR=incrementl 



, 



DSNAME 

identifies a data set or a meirber of a partitioned data set. The 
data set must be defined within the current task by a DDEF coirmand, 
unless it is to reside on public storage. 

Specified as : a fully qualified data set name and (optionally) the 
member name of a VPAM data set. When specified, the member name 
must be enclosed in parentheses and must immediately follow the 
VPAM data set name. 



RTYPE 



indicates the organization of the data set specified. 

Specified as : 

I - line data set organization is required. 

LINE - same as above. 

FTN - line data set organization is required and the input is a 

FORTRAN source data set in punch-card format. The card for- 
mat is converted to keyboard format with keyboard continua- 
tion conventions as it is placed into the data set. The 
resultant data set may be updated from a terminal without 
any special consideration being required for multicard sta- 
tements. Trailing blanks are stripped from statements that 
are not continued. 

CARD - a VSAM fixed-length data set is created (no line numbering) . 
The record length is 80 characters. Normally, this option 
is specified when the user is creating a data set for FOR- 
TRAN data from card input. It may also be specified to 
build a data set from the keyboard conversationally. In 
this case, leading blanks are not stripped off, and all 
input goes into the data set in the form it is entered from 
the terminal. If the line entered is less than 80 charac- 
ters, it is padded with blanks to create a record that is 80 
characters long. If the record entered is greater than 80 
characters, it is truncated to 80 characters. 

S - a VSAM variable-length data set is required (this generates 

a record preceded by a four-byte length field) and a one- 
byte origin field (key board/ card reader indicator). 

System default s S. 



DBASE 



identifies the starting line number of the line data set being 
created. 

Specified as : from three to seven decimal digits, the last two of 
which must be zeros. An all-zero starting line number is invalid. 
(See "Note" under DINCR. ) 

System default : 100. 
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DINCR 

specifies the value by which the line immbers in the data set are 
to be incremented. 

Specified as : from three to seven decimal digits, the last two of 
which must be zeros. An all- zero increment is invalid. 

System default : 100. 

Note : The specification of DBASE and DINCR is invalid for a 
sequential data set (indicated by defaulting RTYPE). 

Functional Description : Either a line data set is selected or a VSAM 
data set is created. The user can modify, correct, insert, and delete 
lines only in a line data set. 

If the user's task is conversational and LINENO=Y, the DATA command 
prompts for entry of data. If indexing was specified, the system re- 
quests each line by issuing the current line number; if indexing was not 
specified, the system prompts for each line by issuing a pound sign (#). 
When the user does one of the following, 

1. Enters %E 

2. Enters a single break character as the first character of a line 

3. Presses the ATTENTION key 

the data set is closed and command mode resumed. Clf the ATTENTION key 
is pressed, the data on the current line is not entered into the data 
set.) In each case, the system prompts the user for his next comirand. 
The user may then reopen the data set and continue to build it or a mem- 
ber of it by issuing another DATA coirmand. 

If an old data set is specified, the user is prompted with the first 
line number after the end of the data set. If the old data set is 
VISAM, the user is prompted with the last line in the data set plus the 
increment value. If the user specifies his own base value, he is pro- 
mpted with the line number specified. 

Lines being entered for a line data set can be modified, corrected, or 
deleted, and new lines can be inserted by following the conventions 
listed below. (See also "Language Processing' 1 in Section 3 of Part II.) 

1. To modify or correct a line of a line data set, enter: 

% line number, data 

where : 

line number 

identifies the line to be replaced by a modified or correct 
line. 

data 

is the replacement line of is data. 

2. To insert a new line into a line data set, enter: 

%line number, data 

where : 

line number 

identifies the new line to be inserted. It may be any one- to 
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seven-digit integer, the value of which specifies the location 
of the new line within the data set. This value must not ex- 
ceed the last existing line number. 

3. To delete a line or a series of lines from a line data set, enter: 

%D,line number!, last line number 1 

where : 

line number 

identifies the last line to be deleted. If a sequence of 
lines is being deleted, "last line number* must be higher in 
value than "line number. " 

Cautions ; When other DATA and MODIFY commands are entered as part of 
the data set, they must be preceded by multiple break characters because 
the system closes the data set and immediately executes any command fol- 
lowing a single break character. The use of multiple break characters 
in the data mode is the same as described in Section 4 of Part II. The 
number of break characters used depends upon the level of nesting . 

Programming Notes : The maximum line length is 120 characters of text 
(not counting the line number) for either a line data set or a VSAM data 
set with variable record length. For a VSAM data set with fixed- length 
records, the maximum record length is 128 characters. When records are 
being entered via the IBM 1056 Card Reader with the AUTO EOB switch on, 
the maximum record length is 80 characters; and with the switch off, the 
maximum length is 79. 

When a line is being continued the continuation character Ca hyphen) is 
not included in the record placed in the data set. Each line that con- 
tinues the statement initiated in a preceding line is accepted as if it 
were a new and independent line that forms a complete statement by 

itself. 

DATA normally puts a new data set on a public volume. If a private vol- 
ume is desired, a DDEF command must be issued for a data set before the 
DATA command is issued. 

Examples : 

1. The user is attempting to construct a line data set named ROVER1. 

User : data roverl , line, 100 ,200 
Sys,User : 100 subroutine alpha (beta) 

300 common gamraa(3,5) ,delta(10 ),epsilon 

500 paraitF=beta 

700 %350, common theta 

700 %35g, integer beta 

System : INVALID CORRECTION NO. LINE IGNORED. 
User : 700%355, integer beta 

Sys, User : 700 10 format (5x,I7) 

900 %700,10 format (5x,I8) 

900 %d, 350, 355 

900 do 25 i=l,3 

1100 do 25 j=l,3 

1300 %950,gamma(l,l)=param 

1300 gamma(i+l, j)=gamma(i, j)*param 

1500 Xe 

2. The user wants to construct a VSAM data set that is made up of a 
sequence of commands. The data set is named COMSET and is tc be 
used in a BACK command. 
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User : data coroset 

Sys, User : #ftn raader,n, , f y,y,y,y 



#logoff 
#_back comset 
System : BSN=0310 

3. The user wants to add to two members of a VPAM data set that is 
named OVAL. One member, CIRCLE, has a virtual indexed sequential 
organization, and the last line currently in the data set is 500. 
The other member, SQUARE, has a virtual sequential organization. 

User : data oval(circle) , line, 600, 100 

The system informs the user that this is an old VISAM member and 
prompts him with line number 600. 

600 new line of data 
700 another line of data 

User : _data oval (square) 

System : (The user will be adding to the end of the data set.) 



The user wants to create a VISAM data set to execute three assem- 
blies nonconversationally. 

User : data assembly , line 

Sys, User : 100 logon 

200 procdef assm 

300 param $1 

400 ddef a,vi,asmac 

500 ddef v,vs,asind 

600 asm$l,y ,macrolib=(a,v) 

700 print list. $1, ,, edit, ,,, , accept 

800 end 

900 assm progl; assir prog2j assm prog3 
1000 logoff 

1100 ^execute assembly 
System : BSN=0489 



DDEF Command 

This command defines a data set and describes its characteristics to the 
system. 

Note : This description does not contain all operands for the command. 
A complete description appears in Appendix E. The CDEF command is shown 
nelow in its expected normal form for typical new public VAM data sets. 
In this use, most or all of the other operands are defaulted. 

I T " 1 

| Operation | Operand | 

^ -, , 

JDDEF |DDNAME=data definition name i , DSORG= { VI | VS | VP > 1 j 

| | ,DSNAME=data set name J 
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DDNAME 

specifies the symbolic data definition name that is associated with 
the data set, and which provides a link between the DCB in the 
user's program and the data set definition. 

Specified as : from one to eight* alphameric characters, the first 
of which must be alphabetic. 

DSORG 

indicates the organization of the data set being defined. 

Specified as : 

VI - VI SAM. 
VS - VSAM. 
VP - VPAM. 

Default : the value assigned at system generation if the data set 
is new; the existing organization if the data set is cataloged. 

DSNAME 

specifies the name by which the data set will be (or is) cataloged 
and referred to during the current task. 

Specified as : a fully qualified data set name and (optionally) a 
member name of a VPAM data set. When specified, the member name is 
enclosed in parentheses and immediately follows the VPAM data set 
name. 

Functional Description : The DDEF command establishes a system entry for 
the data set definition that can be referenced by allocation routines 
and access methods. This link between the data set definition and the 
problem program's reference to the data set (the DCB) is the data 
definition name., The entry containing the data set definition is main- 
tained until the task is concluded or until the definition is deleted 
via the RELEASE command. 

When the DSNAME specified includes a member name, DDEF defines the VPAM 
data set, not the member. 

When a data set is defined, and the RET operand (see Appendix E) is 
defaulted, DDEF assumes that the data set resides on permanent storage 
with unlimited access. The RET command can be used to change these 
attributes once they are established. 

Cautions : If a user's program is executing in conversational mode and 
refers to an undefined data definition name, a diagnostic message is is- 
sued and the user is prompted for information. In nonconversational 
mode, the task is abnormally terminated. A FORTRAN user can default his 
terminal as the "undefined" data source or destination (SYSIN or 
SYSOUT). 

Each DDEF command is valid only during the task in which it was issued; 
previously defined data sets must be redefined in each new task that 
references them. 

Programming Note : The user can change the data definition name assigned 
in a previous DDEF command by issuing DDEF with the new data definition 
name. The only operands required are the data definition name and the 
data set name, and all other parameters are ignored. If the user wants 
to change the other parameters, he must issue a RELEASE command to 
delete the previously issued DDEF command and re-issue a DDEF command to 
establish a new system entry for the data set definition. 

130 



The DDEF command cannot be used to change the catalog attributes of an 
existing data set? only the DDNAME can be changed. 

Examples : 

1. The user wants to define a new VPAM data set- He enters: 

User : ddef ddnl,vp,dsname=group(raeml) 

This command defines the VPAM data set GROUP, not the member 
(MEM1). A DDEF for GROUP (MEM2) does not create a new data set 
definition, but only replaces the data definition name in the pre- 
vious DDEF for GROUP (MEM1). 

2. The user wants to define a new VISAM public data set* He enters: 
User: ddef ddn2,vi,t.trip3 



DDNAME? Command 

This coitmand allows a user to list the data definition names ( DDNAME s) 
and associated data set names (DSNAMEs) that are currently defined for 
the user*s task* 

i : 1 ' ' 1 

| Operation J Operand | 

j. 1 f 

j DDNAME? | CJOBLIB=CY|N>] | 

I J . . J 

JOBLIB 

controls which data definition names are displayed at the user's 
terminal. 

Specified as : 

N - all currently defined DDNAMES are displayed. 

Y - JOHLIB DDNAMEs are displayed in the order in which they will be 
searched. 

System default : N. 

Functional Description : Used to review the user's DDNAMEs, with the 
option of reviewing just JCBLIB DDNAMEs. Along with the DDNAMEs, the 
associated DSNAMEs are listed. If no operand is entered, all data 
definition names and corresponding data set names defined in the user's 
task are listed. 

Example : 

User : ddname? 

System : DDNAME DSNAME 

SYSULIB USERLIB 

LPCMNDX MACNDX. G0005V00 

LPCMSRC SYSMAC. G0005V00 

SYSUSE SYSUSE 

SYSLIB SYSLIB. G0007V00 

SYSUCAT USERCAT 

SYSSVCT SYSSVCT 

SYSCAT TSS*****. SYSCAT 

SYSOUT CARDTR 

SYS IN CARDTR 
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User : ddname? joblib=y 

DDNAME DSNAME 

SYSULIB USERLIB 

SYSLIB SYSLIB.G0007V00 



DEFAULT Command 

This command changes operand default values. 

I T " 1 

| Operation | Operand | 

l- + , 

| DEFAULT | (operand name= [value] H ,... 1 J 



operand name 

designates the operand whose default value the user wants to alter 
or establish. 

Specified as : an operand name from a command or an implicit 
operand name. 

value 

specifies the value to be assumed whenever the specified operand 
name is omitted in a command. This value does not apply when an 
operand value is explicitly given for the operand in a command in 
which it appears. This value overrides any previous default value 
that was assigned to the operand during the task. 

Specified as : a normal or quoted string. 

System default : any previously assigned default value for the 
specified operand is deleted. 

Functional Description : The system adds, replaces, or deletes entries 
in the user's default table according to the specifications of the com- 
mand. When the user has assigned a value to an operand by issuing 
DEFAULT, he can enter commands without explicit statement of the 
operand; the system uses the value he assigns for the remainder of the 
current task, unless the task profile is made permanent with the PROFILE 
command. (See also the description of the PROFILE command and Section 6 
in Part II.) 

Programming Notes : The DEFAULT command can be used to delete previously 
defined default entries. The user enters the DEFAULT command and speci- 
fies a null string to be assigned to the operand name he wants to 
delete. Also, since some operands have the same value during one task 
or during successive tasks, the DEFAULT command minimizes the necessity 
of entering the same value several times, by assigning a value to an 
operand in advance of its use. 

Example : The user wants to change the system default LIMEN=W to IIMEN^I 
permanently in his user profile. He enters: 

User : default LIWEN=I 

Sys,User : profile 

DELETE Command 

This command deletes a data set entry from the user 8 s catalog. 
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J J ■' ."" ' "" 1 

I Op er a t ion | Operand | 

, ^ - i 

| DELETE j CDSNAME=data set name] | 

I , J : i 

DSNAME 

identifies the cataloged data set that resides on a private volume, 
or the shared data set owned by another user that is to be deleted. 

Specified as : a fully qualified data set name, a name of a genera- 
tion data group, or a partially qualified data set name. 

System default : a partially qualified data set name; the user's 
user identification is the only qualifier. 

Functional Description : When the data set name specified is partially 
qualified, the action of the DELETE command depends on the mode of oper- 
ation. In conversational mode, DELETE tests the DEPROMPT operand in the 
user profile to determine whether each fully qualified data set name 
referenced by the input name is presented to the user. When DEPROMPT^Y, 
the user is presented one fully qualified data set name at a time for 
disposition. He responds with D and the data set entry is deleted from 
the catalog (if the data set is private) f or he responds with R (for re- 
tain) and no action is taken, or he responds with A (for ALL) to delete 
all data sets with the partially qualified name. When DEPROMPT=N, all 
data sets with the partially qualified name are deleted without prompt- 
ing. In nonconversational mode f the names of all private data sets 
referenced by the input name are deleted, regardless of the value of 
DEPROMPT. 

When a private input name is fully qualified, a private data set is 
deleted, regardless of the value of DEPROMPT or the mode of operation. 

If the user wants to delete a data set that he has shared, he must spe- 
cify the same name that he used in the associated SHARE command. For 
example, if the user issues 

share my,ownerl, *all 

and has in his catalog MY. ONE, MY. TWO, and MY. THREE, he can only delete 
at the "MY." qualification level. He cannot delete the catalog entries 
by issuing: 

delete my. one 
Rather, he must issue 

delete my 

to delete the catalog entries. 

When the input name cannot be found, the command is ignored. 

Whenever the user attempts to delete one of his own public data sets, a 
diagnostic message is issued. 

Caution : A VAM data set that has been deleted from the catalog cannot 
be referenced by the user until he reenters the data set into the cata- 
log (with EW or SHARE). 

If the user tries to delete a shared data set for which a bulk I/O oper- 
ation is pending, the DELETE command is canceled. 
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Programming Notes ; Initially, DEPROMPT=Y. To change this value, use 
the DEFAULT Command. (See also Section 6 of Part II and the ERASE Com- 
mand description in this part. ) 

When the user wants to delete the catalog entry for a public dat^ set 
and to free the space the data set occupies, he must use the ERASE 
Command, 

To delete a generation data group, you must recatalog each of its mem- 
bers as a nonmember of the group prior to execution of DELETE. 

Examples : 

1. A conversational user wants to delete the data sets with the par- 
tially qualified name A. B. DEPROMPT=Y is in his user profile. 

User : delete dsname=a. fc 

The system asks the user to enter D for delete, R for retain, or A 
for all. It prompts with fully qualified data set name. 



System: 
User: 


A.B.C 

r 


System: 
User: 


A.B.D 
d 


System: 
User: 


A.B.E 

r 



No more data sets begin with A.B so the system prompts for the next 
command. 

A conversational user wants to delete all private data sets whose 
names begin with E.F. He issues the following commands: 

nser : def ault deprompt=n 

delete e.f 



DISABLE, ENABLE, POST, and STET Commands 

These commands allow the user to control changes to a data set. 



, ,, . ^ 

| Operation | Operand | 

(DISABLE | | 

L J , J 



| Operation j Operand j 

,._ 4 f 

(ENABLE j 1 

L i J 



| Operation | Operand j 

\- + 1 

(POST | j 

L . JL . i 

I 1 ~"~ ' H 

| Operation (Operand | 

v 4 f 

j STET 1 1 

L i . — J 
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Note: These commands have no operands and are ignored when TRAOTAB=N. 

Caution : A language-processing coirmand (EDIT, PROCDEF, or PLI) must be 
invoked before any of these commands is entered. 

Functional Description : The TRANTAB operand in the user profile may be 
set to either N or Y. (The system-supplied default value is N.) if the 
user wants to undo a change made by a text- editing command to a data set 
when TRANTAB=N, he must do so explicitly- For example, assume that the 
following line is line 200 of the data set ABELINC that is being edited, 

0000200 FOUR SCORE AND SEVEN YEARS AGO 

and the user issues a REVISE command to modify it: 

revise 200 

0000200 eighty-seven years ago 

If the user decides that he prefers the original wording of the line and 
wants to restore it, he has to do so explicitly by issuing another com- 
mand, such as REVISE. Furthermore, if the user has modified a number of 
lines and wants to undo many of the changes, he has to make each change 
explicitly. 

A facility for simplifying such modifications can be introduced by 
defaulting TRANTAB=Y, When this option is exercised, the text editor 
maintains a transaction table in which changes to a data set are record- 
ed. Additions to the data set are noted in one part of this table, 
deletions in another. The only text-editing commands that do not change 
lines of the data set, and therefore do not result in entries in the 
transaction table, are DISABLE, ENABLE, LIST, LOCATE, and POST. 

When TRANTAB=Y, the text editor functions in either of two states, dis- 
abled or enabled. The text editor is in the disabled state when it is 
invoked; it may be enabled with the ENAELE coirmand and returned to the 
disabled state with the DISABLE command. 

In the disabled state, records of all changes made to lines since the 
text editor was last invoked, or explicitly disabled, are maintained in 
the transaction table. If a modification is made to a line for which a 
previous transaction table entry exists, however, the existing entry is 
overlaid by the new one. For example, if the text editor is invoked and 
used for the existing data set ABELINC as shown in the sequence: 

User : default trantab=y 

Sys,User : edit abelinc 

Sys,User : list 200 

System : 0000 200 FOUR SCORE AND SEVEN YEARS AGO 

Sys,User ; revise 200 

0000200 eighty-seven years ago 

the transaction table has 

0000200 EIGHTY-SEVEN YEARS AGO 
as an addition, and 

0000200 FOUR SCORE AND SEVEN YEARS AGO 

as a deletion. If the user continues 

Sys,User : revise 200 

0000200 a long time ago 
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t:li« transaction table contains 

0000200 A LONG TIME AGO 
as an addition, and 

0000200 EIGHTY-SEVEN YEARS AGO 

as a deletion. The original wording of line 200, FOUR SCORE AND SEVEN 
YEARS AGO, is no longer retained in the transaction table. 

In the enabled state, the text editor removes entries caused by previous 
commands from the transaction table as each new command is executed. 
Consequently, only the changes resulting from the most recently issued 
editing coirraand that affected a line of data can be found in the trans- 
action table. The text editor becomes enabled when the first editing 
command that alters a line of data is entered following execution of the 
ENABLE command. For example, in the following sequence 

Sys, User : number 50,100 
enable 
excise 100 

the text editor does not become enabled until the EXCISE command is 
executed. If a nonmodifying command, such as LIST, had been inserted 
between the ENABLE and EXCISE commands, it would have been executed in 
the disabled state. After the EXCISE command was executed, however, the 
text editor remained enabled until a DISABLE corrmand was issued, or un- 
til the editing session was terminated by a break character followed by 
an END, PROCDEF, PLI, or EDIT command. 

Similarly, the DISABLE command does not disable the text editor until a 
line-modifying editing command is executed. 

The STET command nullifies the changes to the data set that were record- 
ed in the table. For example, in the case of the modification to line 
200 of the data set illustrated above, the last modification could have 
been nullified with the STET command. The sequence is as shown below. 
(Note that line 300 exists so the system prompts for a command after 
line 200 has been revised. If line 300 did not exist, the system would 
prompt for data by printing 0000300. > 

Sys, User : revise 200 

0000200 a long time ago 
Sys, User : stet 
Sys , User : list 200 
System : 0000 200 EIGHTY- SEVEN YEARS AGO 

Note, however, that the original wording of line 200, FOUR SCORE AND 
SEVEN YEARS AGO, is lost. A second STET command at this point would 
only reverse the transaction table once again and return the wording of 
line 200 to A LONG TIME AGC. Thus, the effect of two consecutive STET 
commands (or of two STET commands separated only by non-modifying com- 
mands such as LIST) is to revert the transaction table to its status 
prior to issuing the first STET command. STET does not change the 
disable/enable state of the text editor. 

The POST command makes the temporary changes to the data set permanent 
and permits the user to continue to make temporary modifications. For 
example, in the following sequence: 

default trantab=y 

edit jbra 

0000100 the quick brown fix 

0000200 jumped over the lazy dog 
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0000300 ^context 100,, fix, fox 

|>ost 

context 2 00,, dog, dig 

stet 

list 

0000100 THE QUICK BROWN FOX 

0000200 JUMPED OVER THE LAZY DOG 

Note that the STET command only reverses the effect of the second 
CONTEXT command, since the temporary change created by the first was 
made permanent by the POST command. POST does not change the disable/ 
enable state of the text editor. 

To help explain the effect of the DISABLE, ENABLE, POST, and STET com- 
mands, the nature of transaction table entries is illustrated below. 



Transaction Table Entries ; The examples below describe changes to a 
data set and entries in the transaction table. On the left are the com- 
mands that change the data set; on the right are the resulting entries 
in the transaction table. 

Case 1 : A new data set is being created. The text editor is disabled. 
The sequence is as follows: 

Sys,User : region name Transaction Table 

0000100 abcdef r r ^ 

0000200 12345 | Additions | Deletions j 

0000300 e th J> \> HI 

0000400 _JList 200 ) 100 AECDEF| ] 

I 200 12345 | | 

J 300 E TH j \ 

t i^ j 



Notice that the LIST command does not change data and therefore does not 
affect the transaction table. Now assume that a STET command is issued. 
The table described in Case 1 appears as: 



Sys,User : stet 



Transaction Table 




r "" ' * " Mmm i "" ' """"■ 

| Additions | Deletions 

i , , „ i , ., ,. _. „.,, ., . 


1 

1 

1 


r r 

| | 100 ABCDEF 

| | 200 12345 

| j 300 E TH 

l „L 


f 

1 
1 

1 

,. i 



and lines 100 through 300 no longer exist in the data set. 

Case 2 : Whenever a change occurs to a line for which a previous trans- 
action table entry exists, the existing entry is overlaid by the new 
one, no matter what the disable/enable status of the text editor is. 
Assume the first transaction table and data set from Case 1. If line 
100 is changed to ABCDMM, the transaction table becomes: 



Sys,user : 

User: 



u pdat e 
100 abcdmm 



Transaction Table 



Additions j Deletions 



1- — h 





-4 


I 200 12345 | 


100 ABCDEF 


\ 


| 300 E TH | 




1 


I 100 ABCDWM) 




1 


L ... J.- 




I 



Part III: Conirand Descriptions 137 



Notice that the previous entry for line 100 in the additions column is 
overlaid and that a change to two characters is treated as a change to 
the entire line. Now assume that when the system unlocks the keyboard 
the user types in a break character and the STET command: 



User; 



stet 



Transaction Table 



f- 

1 


Additions 


1 


Deletions 


1 


1 
1 
1 


100 ABCDEF | 
I 

1 

i. 


200 
300 
100 


12345 

E TH 
ABCDKM 


H 
1 
i 
1 



Lines 200 and 300 are blank; line 100 is ABCDEF. If a POST command is 
issued, the transaction table is emptied, but the lines of the data set 
remain the same. Thus, POST makes the changes irreversible. 



Case 3 : Now assume that the transaction table appears as in Case 2. 



Sys , User : revise 100 

0000100 BBCDtfM 



Transaction Table 



| Additions | Deletions j 
k ^ , 



200 12345 
I 300 E TH j 
\ 100 EECDMMJ 
i u 



100 ABCDMM I 

I 
I 



If STET were issued new, line 100 would become ABCDMM, and not ABCDEF. 
Hence, when multiple changes are m£de to a line, only the changes still 
reflected in the transaction table are reversible. Following STET, the 
table in Case 3 becomes: 



Sys, User : stet 



Transaction Table 

r T 

| Additions | Deletions 



k 



~h 



100 AECEMMI 200 123 45 
| j 300 E TH 

| j 100 BBCDMM 

I L „ 



"~ 1 



Case 4 : When the text editor is enabled, each new table entry overlays 
existing entries. These line changes result in one table entry. 



Sys , User s update 
User : 300 xyzabc 

^context 200, 300, za, by 



Transaction Table 

r f 

| Additions J Deletions 
j. , 

J 300 XYBYBCJ 300 XYZABC 



Only the change made by the CONTEXT command appears in the transaction 
table. STET issued now could change only line 300. 

Now assume an INSERT command is issued, followed by three lines of data 
for lines 400, 500, and 600, which do not exist. The transaction table 
contains: 
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Sys, User : jj 



insert 300 
0000400 hijkl 
0000500 mnopq 
0000600 rstuv 



Transaction Table 



I Additions | Deletions 



*- 



4- 

| 400 JHUKL I 
I SCO MNOPQ | 
| 600 TSTUV J 
L L- 



Three entries appear in the transaction table, since only one execution 
of the INSERT command was involved, A STET command entered now deletes 
lines 400, 500, and 600. Notice, however, what occurs if one STET com- 
mand is followed immediately by another. In the example above, lines 
400, 500, and 600, which were moved to the deletions column by the first 
STET command, would be moved back to the additions column by the second 
STET command. The effect of a STET command can be reversed with another 
STET command. 



Case 5 : The ENABLE command does not affect the transaction table until 
after the ensuing editing command that changes a line is executed. As- 
sume the editor is disabled and this transaction table: 

Transaction Table 

r r ., 

| Additions | Deletions 



| 100 1 KRST| 

| 200 30405 | 200 3040506 

| 300 NT476 j 300 ATXYZ 

1 L 



When ENABLE is issued, the table does not change. If ENABLE is followed 
immediately by STET (or by LIST or LOCATE and then by STET), the entries 
are reversed as if the editor is disabled. If, however, ENABLE is fol- 
lowed by: 

Sys,User : context 100 ,300,kr,pq 

the transaction table becomes: 

Transaction Table 



| Additions j Deletions 



I" 



+ 



| 100 1 PQST| 100 1 KRST 
I. — L 



Lines 200 and 300 of the data set are unchanged. 



Cautions : ENABLE and DISABLE do not affect the transaction table until 
a command that alters a line is executed. Thus, STET should not follow 
ENABLE immediately because the result is unpredictable. 

When multiple changes are made to one line, each succeeding change is 
entered in the transaction table, overlaying previous entries for that 
line. 

Programming Notes : Since the text editor is normally disabled when 
TRANTAB=Y, revisions to a data set are temporary. The user can nullify 
changes with the STET command. When the editor is enabled, revisions 
are permanent, since only the last change is revocable with STET. POST 
allows the user to make temporary changes permanent and then continue to 
make temporary changes. 
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Following execution of DISABLE, ENABLE, POST, and STET, the user is 
always prompted to enter a command. 

POST and STET do not affect the disable/enable status. DISABLE, ENABLE, 
POST, and STET do not change the value of the CLP. 

Examples ; 

1. The user issues the following sequence of commands: 

Sys,User i default trantab=y,regsize=8 
edit myprog 
region abc 

0000100 data line one 
0000200 data line two 
0000300 data line three 
0000400 data line four 
0000500 ^excise 400 
excerpt your prog, pgr, 500 ,700 
context 100, 3 00, line, number 
enable 

number 100, last 
list 
end 

In this sequence of commands, the results of EXCISE, EXCERPT, and 
CONTEXT are made to the data set and recorded in the transaction 
table. When the NUMBER command which follows ENABLE is executed, 
these table entries are removed, and the entry from NUMBER exists 
alone in the table. 

2. Assume a STET command is issued between CONTEXT and ENABLE; the 
effect of EXCISE, EXCERPT, and CONTEXT are canceled. 

3. STET appears between NUMBER and LIST; only the effect of NUMBER is 
canceled. 

4. POST appears between EXCERPT and CONTEXT, and STET is issued fol- 
lowing CONTEXT; only the effect of CONTEXT is canceled. 

5. STET appears between ENABLE and NUMBER; the effect of EXCISE, 
EXCERPT, and CONTEXT are nullified. 

6. STET appears between LIST and END; the effect of NUMBER is 
canceled. 

DISPLAY Command 

This command prints the contents and names of specified data fields or 
expressions on SYSOUT. 



| Operation (Operand j 

(DISPLAY j data field name or expression!,...] | 

| j id? data field name or expression [,... ] | 

data field name or expression 

specifies the data ^ield or expression to display. 

Specified as : an absolute address, the name of a data location, an 
array, a control section, a symbolic range, an arithmetic or logic- 
al expression, a quoted string, or a command variable. 
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id? data field name or expression 

specifies one or more data fields or expressions for which the 
CSECT name, load address, and length are to be displayed. 

Specified as : the characters "JU>?" followed by the name of a data 
location, an array, a symbolic range, or an internal or external 
symbol. (See "Types of Operand Specification" and "Operand Defini- 
tions" in Section 3 of Part II for explanations of these terms.) 
For multiple requests in one DISPLAY command, the characters "ID?" 
must be repeated for each data field or expression. Data fields or 
expressions preceeded by ID? and those not preceeded by ID? are 
inter changable in one command. 

Functional Description : The contents of each specified data field, i- 
dentified by the name entered in the operand field, are printed. The 
format of this printout is established by the system, according to the 
type and length attributes of the data field. If the data field type is 
not defined, it is assumed to be hexadecimal. If the user f s task is 
conversational, the data field is printed at the terminal; if the task 
is nonconversational, it is entered on SYSOUT. When a control section 
name, used as an internal symbol, is entered as an operand of DISPLAY, 
the entire control section is automatically formatted in accordance with 
information in the internal symbol dictionary and is printed in symbolic 
form in assembler language. When a control section name is used as an 
external symbol in DISPLAY, the entire control section is printed in 
hexadecimal . 

When a symbolic range of internal symbols, without offsets, is entered 
as an operand of DISPLAY, the specified range is automatically formatted 
and printed in symbolic form. If either internal symbol in a symbolic 
range has an offset, the output is in hexadecimal. 

When a quoted string is specified as an operand, the string (without the 
delimiting quotes) is displayed. 

When an arithmetic expression is specified, it is evaluated, and the re- 
sult is displayed. 

The ID? form of the DISPLAY command displays the CSECT name, load 
address, and length for the specified data location, array, or internal 
or external symbol. This information is displayed as: ID=csect name 
LOADED AT address, length BYTES LONG. Multiple requests in one DISPLAY 
command require that each address or name must be prefixed by the char- 
acters ID? (see example 7). 

Programming Notes : Arithmetic operations may be executed with the 
DISPLAY conrmand if the user does not want to have the result saved in 
storage. The type and length of the operands must be compatible. 

When the user is in conversational mode, he can terminate the printout 
by pressing the ATTENTION button at his terminal. If more than one data 
field had been specified in one DISPLAY command, the next data field is 
displayed; otherwise, control is passed to the terminal. 

Examples : 

1. The user wants to print a header and the contents of register 6E. 

User : display 'register 6",6e 

System : REGISTER 6 

System : 6E = .27182818E ♦ 01 

2. The user has a 5 by 5 integer array and wants to display the first 
10 elements of the array, and the element ARRAY (I,K). 
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User : display pgnu array (1,1): pgm. array (5,2) ,pgm. array 

(pgro.I,pgm.K) 
System : PGM. ARRAY (1,1): PGM.ARRAY (5,2) = 

(l f l) 4 5-8 16 

(1,2) 9 -6 3 22 7 

PGM.ARRAY (4,5) = -16 

Note : The elements may be referenced symbolically, but the system pro- 
duces the actual subscript values. 

3. The user wants to display the result of 9 ♦ 5, 

User : display 9+5 

System : 14 

4. The user wants to display the contents of the data field PATTERN. 

User : display pattern 

System : PATTERN=4020202020202020 

5. The user wants to display the address of the data field PATTERN. 

User : display a* pattern* 

System : 0042D320 

6. The user wants to display the CSECT name fcr symbol JOE. He 
issues: 

User : display id? joe 

7. The user wants information displayed for symbols JCE, JACK, and 

SAM. He issues: 

User : display id? joe, id? jack f id? sam 

DMPRST Command 

This command performs a time-shared dump and restore of a VAM2 disk 
volume. 

I T~ ■ 1 

1 Operation | Operands | 

j. 4 „ f 

IDMPRST |FR0MDEV=£2311 ( 2314 |24xx 1 3330 I333B},FRVOLIB=Cvolid| (volid 
| £ r volid] )} f TODEV=( 2311| 2314| 24xx( 3330[ 333B) 
I £,TOVOLID= (volid j (volid (, vol id] )j PRIVATE}] 
I [,NEWVLID=volid] (,WRITCHK={YES| NO) ] [, LABEL=(RETAIN1N0> 1 
j £ , ] , RUNMODE= (BACK | FORE } 

FROMDEV 

specifies the device type that the f rom-volume is to be mounted on. 
If not given, the command is canceled. 

Specified as : 

2311 - disk in VAM2 format. 

2314 - disk in VAM2 format. 

24xx - 9-track dump tapes containing a properly formatted dump. 

3330 - 3330-1 disk in VAM2 format. 

333B - 3330-11 disk in VAM2 format. 

FRVOLID 

specifies the volume identification number (VOLID) of each froro- 
voluroe. If not given, the command is canceled. 

142 



Specified as s one to six alphameric characters. 

Notes : 
1- Only one VOLID may be specified for disk. 

2. One or two VOLIDs may be specified for tape, each of which 
must have a standard label. 

3. Multiple tape volids must be specified in the order in which 
the tapes are to be used. 

4. Duplicate VOLIDs for the same device type are not permitted. 

5. Blanks contiguous to a coirma or parenthesis are ignored. 

TODEV 

specifies the device type that the to-volume is to be mounted on. 
If not given, the command is canceled. 

Specified as s 

2311 - disk in VAM2 format. 

2314 - disk in VAM2 format. 

2400 - labeled 9-track scratch tapes. 

3330 - 3330-1 disk in VAM2 format. 

333B - 3330-11 disk in VAM2 format. 

Note ; the following chart indicates valid FROMEEV and TODEV pairs: 

FROMDEV TODEV 

24xx 2311, 2314, 3330, 333B 24xx legend 

2311 24xx, 2311, 2314, 3330, 333B 2408 — 800bpi 

2314 24xx, 2314, 3330, 333B 2416 -- 1600 bpi 

3330 24xx, 3330, 333B 2462 ~ 6250 bpi 

333B 24xx,333B 

When FRQMDEV is a 24xx, TODEV must have a capacity equal to or larger 
than the disk used to create the 24xx. 

TOVOLID 

specifies the volume identification of each to-volume. 

Specified as : from one to six alphameric characters or PRIVATE. 

PRIVATE - a scratch volume is requested. 

System default : PRIVATE. 

Note : If TODEV=24xx, and more tapes are required than are speci- 
fied, the system requests scratch volumes. 
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NEWVLID 

specifies the volume identification number to be put in the to-disk 
label at the completion of the job* This parameter is ignored if 
TODEV=24xx. 

Specified as ; from one to six alphameric characters. 

System default : the volume identification number in the volume 
label used (see LABEL) is unchanged. 

Note ; The NEWVLID may duplicate one already in use, 

WRITCHK 

specifies whether writing of pages to disk is followed by a read- 
after-write validity check- This parameter is ignored if the 
TODEV=24xx. 

Specified as : 

YES - write checking is performed, 
NO - normal error recovery is used. 

System default : NC. 

LABEL 

specifies whether the volume label on the to-disk is to remain, or 
the volume label on the from-disk is to be used. This parameter is 
ignored if TODEV=24xx. 

Specified as : 

RETAIN - use the label on the to- disk. 
NO - use the label on the from-disk. 

Systeir default : NC. 

necessary, when RUNMODE is specified in positional notation, to 
maintain system compatibility. 



d 



RUNMODE 

specifies whether a non conversational task is to be created to run 
the dump and restore. This parameter is ignored if the task is 
nonconversational. If not given for a conversational task, the 
command is canceled. 

Specified as : 

BACK - a nonconversational task is created to run the dump and 

restore. 
FORE - the dump and restore is run in the user - s conversational 

task. 

Functional Description : DMPRST can be used to dump a VAM2 disk to ei- 
ther a 9-track tape with standard TSS labels or to a VAM2 disk that has 
been prepared by DASDI. The command can also be used to restore a dump 
tape to a VAM2 disk. The dump tape must be either one dumped by DMPRST 
or a standard labeled tape dumped by the independent utility program 
(DASDDR). A disk dumped to tape with DMPRST may also be restored with 
DASDDR. If error pages were found and assigned when the disk was pre- 
pared by DASDI, pages that fall on error pages are relocated (up to 96 
relocations). Otherwise, all data pages are put in their original 
places. 
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The DMPRST tape format differs slightly from the independent utility 
program tape, 

1. DMPRST does not dump or restore disk user- labels • If th*se records 
are desired, the independent utility Dump/Restore is required. 

2. DMPRST, when dumping to tape, writes the IPL records from constant 
areas and, when restoring, skips these records. If a disk is to be 
used for IPL, the proper IPL text must be on the to-disk before 
restoring. DASDI can be used to write this IPL text. 

3. If a dump requires more than two tape volumes, this command cannot 
be used for the restore. The independent utility Dump/Restore can 
restore a dump of one or more tapes. 

All space is assumed to be available on the to-volume. Disk pages not 
actually used are made available and are left unchanged. No entries are 
made to or deleted from the catalog. 

If RUNMODE=BACK is specified, the maximum command string length (not 
counting keywords) is 120 bytes. 

The tape DDEF uses DSNAME=DR. VAM2. DISK. DUMP and DDNAME=TSU5281<*. These 
names should not be in use when using this command to dump from or 
restore to tape. 

If the VOLID of the to-disk is changed by this command, the operator is 
requested to change the external ID of the disk and the VOLID in the 
symbolic device entry CSDAT) is cleared. If, as a result of this 
change, the VOLID duplicates one in use, the proper volume must be used. 

The maximum tape record length for 2311 and 3330 dumps is 4096. For a 
2314 dump tape, the maximum record length is 8192 bytes. If a duitp tape 
is copied, care must be taken to insure that a full-length record is 
copied for each record. 

When dumping to a tape, if the tape is file protected, the task is 
abnormally terminated when trying to write a tape label. 

DSS? Command 

This command presents the status of one or more cataloged data sets to 
the user. 

i " — i ' — " ' " 1 

| Operation (Operand | 

J DSS? |NAMES={ data set name | (data set name (,...))} j 

i J . -i 

Note: Manager's and administrators should see Manager's and Administra- 
tor's Guide for specialized operands. 

NAMES 

identifies one or more cataloged data sets for which status infor- 
mation is to be presented. 

Specified as : one or more fully or partially qualified data set 
names. When two or more data set names are specified, they roust be 
enclosed in parentheses. 

System default : the status of every data set in user's catalog is 
presented. 

Note : When this operand specifies a VPAM data set, only the status 
of the VPAM data set is given, not that of each member. 
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Functional Description s DSS? provides the user with this information 
about a data set: 

Sharing status - ownership and sharability 

Access status - read-only 9 read/write , or unlimited 

Device type and volume number 

Creation and expiration dates 

Organization 

For VAM data sets only, the date last used and the data set size, 
record form, and logical record length. 

If a partially qualified data set name is specified, the status of each 
data set 9 with the specified qualifiers, is presented. 

Sharing status is given only for those data sets that are permitted Cvia 
the PERMIT command) under their fully qualified names. No sharing sta- 
tus is given if a partially qualified data set name or the user's entire 
catalog is permitted. In nonconversational tasks, the status informa- 
tion is recorded on SYSOUT? and in conversational tasks, the information 
is printed at the user f s keyboard, but the user can terminate the print- 
ing at any time by pressing the ATTENTION key. 

Programming Notes ; The PC? command can be used for a briefer descrip- 
tion of the status of cataloged data sets. 

#ihen using DSS? nondonver sat ion ally, a SECURE command should be issued 
before DSS? is issued for data sets on private devices. 

Examples ; 

1. The user wants to present the status of his data sets. 

User : ds s ? 

System s NICHOLAS. USERLIB 

SHARED AT LEVEL 02 BY NICHOLAS, ACCESS; RW 
VOLUMES DB0622 (2314) 

ORGANIZATION; VP PAGES; 0000071 

REFERENCE DATE; 154/71 CHANGE DATE: 154/71 

NICHOLAS. NICHOLAS. TEST 

VOLUME: DB0668 (2314) 

ORGANIZATION: VI PAGES; 0000000 

REFERENCE DATE: 084/71 CHANGE DATE: 084/71 

RECORD FORMAT: V RECORD LENGTH: 0000132 

KEY LENGTH: 0000007 KEY POSITION: 0000004 

NICHOLAS. TA000304. SOURCE. SINGLE 
VOLUME: 014442 (9-TRACK TAPE) 
ORGANIZATION: PS 

2. The user wants to present the status of all data sets qualified by 
D.A. 

User :- dss? d.a 

The system presents the status information. 



DUMP Command 

This command places the contents and names of specified data fields or 
expressions in the data set with a data definition name of PCSOOT. 

I operation j Operand | 

,. + — — - » 

j DUMP | data field names or expression £ ,. . . 1 J 

I j id? data field name or expression t, ... 1 J 

data field name 

identifies one or more data fields or expressions to be placed in 
the PCSOUT data set. 

Specified as : the name of a data location, an array, or a control 
section; a symbolic range, an arithmetic of logical expression, a 
quoted string, an absolute address, or a command variable. 

id? data field name or expression 

specifies one or more data fields or expressions for which the 
CSECT name, load address, and length are to be dumped. 

Specified as ; the characters id? followed by a data location, an 
array , an internal or external name, or a symbolic range. (These 
terms are explained in Section 3 of Part II under "Types of Operand 
Specification" and "Operand Definitions.") For multiple requests in 
one DUMP command , the characters ID? must be repeated for each data 
field or expression. Data fields or expressions preceded by id? 
and those not preceded by ID? are interchangable in one command. 

Functional Description ; The contents of the specified data fields are 
output to the PCSOUT data set. The format of the results is the same as 
for DISPLAY. 

Programming Notes : DUMP should be used for large amounts of data. 

There can be only one PCSOUT data set per task. It must be organized as 
a line data set. The user has facilities for printout control of the 
data produced by the DUMP command. This procedure is recommended: 

DDEF PCSOUT, VI, DSNAME=name 

EUMP data field name 

RELEASE PCSOUT 

PRINT name , f , EDIT 

PCSOUT must be specified as the data definition name on a DDEF command 
or a DDEF macro instruction before DUMP is issued. If no definition has 
been given, the user is prompted to issue one. Refer to Appendix E for 
a detailed description of the DDEF command. 

The user can specify the ERASE option in the PRINT command to remove the 
PCSOUT data set from his catalog. 

Examples : 

1. The user wants to output the contents of an entire control section 
to his PCSOUT data set. Assume this is the first use of DUMP in 
this task. He enters the following commands: 



User : ddef pcsout ,vi,dsname=list.pcsout 
dump pgm. csectl 
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The system puts the information in the PCSOUT data set, 

2. The user wants to see the contents of a control section, but does 
not have an ISD for the program module. He issues a DUMP, using 
the control section name as an external symbol; however, he fails 
to issue a LOAD command for the object module. 

User : dump csect 

The system loads the module and outputs data. 

3. The user wants to dump the CSECT name associated with the symbol 
JOE. He enters: 

User ; dump id? joe 

The system displays the CSECT name, load address, and length. 

EDIT Command 

This command invokes the system"s text-editing function for a VISAM or 
VPAM data set. 

r t ■ — ■ n 

| Operation (Operand | 

|._ 4 f 

[EDIT |DSNAME=data set name £ (member name) 3 {, RN AM E= region name) I 

| J [, REGS I ZE= region name length] I 

DSNAME 

identifies the data set to be edited or created. 

Specified as : a fully qualified data set name and (optionally) a 
member name of a VPAW data set. When specified, the member name is 
enclosed in parentheses and immediately follows the VPAM data set 
name. 

RNAME 

identifies a region, within the data set specified in the DSNAME 
operand, to be created or edited. 

Specified as : an existing region name or a string of from 1 to 244 
characters. The value of the REGSIZE operand determines the maxi- 
mum length of the region name. Region names are padded with blanks 
or are truncated on the right to fit the specified length. 

REGSIZE 

specifies the maximum length of each region name for the region 

data set. 

Specified as i a decimal number from to 244. If is specified, 
a line data set is created. 

System default : 0. 

Functional Description : The EDIT conmand invokes the text editor and 
initializes the transaction table if TRANTAB=Y. Then, EDIT ascertains 
whether the specified data set or region exists or has previously been 
defined within the task. 

If the data set or region exists, EDIT assumes the existing data defini- 
tion values and prompts the user with an underscore so that he may enter 
commands. The CLP is set to the first line of the data set. 
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If the data set does not exist, EDIT defines it and prompts with the 
first line number of the new data set (specified by BASE in the user 
profile; the default is 100) if LINENO=Y. If a region name is specified 
in the EDIT command, EDIT prompts with the first line of the new region. 
If the region name is not specified, but REGSIZE is greater than 0, EDIT 
prompts with an underscore so that the user can specify a region name 
with the REGION command. 

The type of prompt a user gets depends on the value of LINENO, the value 
of REGIS2E, and whether the data set or region is new or old. Table 17 
summarizes the prompt. 



Table 17. Type of prompt after the EDIT command 

T 



LINENO h 
Value 



+ 



Data Set is 
New 



REGSIZE = 



+- 



Data Set 
Exists 



REGSIZE > 



Region is New 



Region Exists 



Prompt with 
the value of 
BASE 



Prompt with an 
underscore 



Prompt with an 
underscore 



Open the 
terminal to 
accept data 



N 



If a region 
name is spec- 
ified, prompt 
with the 
value of 
BASE; other- 
wise, prompt 
with an 
underscore 

If a region 
name is spec- 
ified, open 
the terminal 
to accept 
data; other- 
wise, prompt 
with an 
underscore 

.. L 



Prompt with 
an underscore 



Prompt with 
an underscore 



-A — 



Programming Notes ; The user can precede EDIT with a DDEF command to 
specify the DCB suboperands he desires. To create a region data set 
with maximum line length, the DCB values might be: 

RKP=4 , RECFM=V, LRECL=256 ,KEYLEN=15 

A separate EDIT command must be issued for each data set to be process- 
ed. The user can terminate processing of one data set and begin proc- 
essing another by issuing an EDIT command without an intervening END 
command. 

Following EDIT, the user can issue any command. 

Examples : 

1. The user wants to create a line data set named LINEDS: 



User : 
System : 



edit lineds 
0000100 



Now, the user can enter data, and the system will continue to pro- 
mpt with line numbers in increments of 100. To enter a command, 
for immediate execution, the user must enter the break character 
followed by the command. 
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2. The user wants to create a region data set, REGES, with a region 
name length of 15 characters. He wants to create region XYZ, and 
does not want line numfcers displayed: 

User : default lineno=n;edit regds,xyz,15 

The system unlocks the keyboard so that the user can enter data at 
line 100 of region xyz. 

The user can also use the REGION command to operate on other 
regions in the data set, (See the description of REGION later in 
this part.) 

3. The user wants to edit an existing data set, LINEDS, which begins 
at line 100. He wants the transaction table active: 

User : default trantab=yj edit lineds 

System : _ 

CLP is set to the first line in the data set. 



£JECT Command 

The EJECT command causes a skip to a new page in the non- conversational 
SYSOUT listing. When the SYSOUT is a terminal, a triple space is done 
instead. 



j Operation j Operand j 

| EJECT | | 

Note : This command has no operands. 

Functional description : The EJECT command module issues a t GTWRC f macro 
with an 'EJECT' ASA carriage control character. The EJECT carriage con- 
trol character is handled differently according to the SYSOUT. For 
2741, TTY's and 3215 (1052-7) the paper is spaced up 3 times by issuing 
three carriage return characters. For SYSOUT datasets with carriage 
control specified, the carriage control character is included as the 
first character in the record. When the dataset is printed with the 
EDIT option, the carriage control character will cause an eject to the 
next page on the printer. If carriage control is not specified on the 
SYSOUT dataset, the carriage control character is deleted and a blank 
line is inserted instead. 

Example : The user wishes to start the output from command B on a new 

page in the SYSOUT dataset. 

User : command A 

EJECT 
command B 



System : output from A. - 

EJECT to new page 
output from B. 



ENABLE Command 

See "DISABLE, ENABLE, POST, and STET Conroands." 
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END Command 

This command terminates processing of a language processor controller 
(LPC). 

f t - 1 

| Operation | Operand | 

^ ^ -H 

I END I I 

Note ; There are no operands. 

Functional Description : When an LPC, such as EDIT, PROCDEF, or PII, is 
invoked all text editor functions become available. When END is issued 
the use of these functions is inhibited, and control is passed to the 
processor's end routine (previously defined when the IPC was invoked). 
The end processing depends on the particular processor. In the case of 
EDIT, the data set is closed? whereas, in the case of PROCDEF, the pro- 
cedure just defined or edited is saved, but the data set is not closed. 
The function of END for PLI is described under the PLI command. 

Programming Notes : The user can terminate processing of one LPC and 
begin processing another by issuing an EDIT, PROCEEF, or PLI command 
(preceded by a break character, if necessary) without issuing an inter- 
vening END command. The previous LPCs end-processing routine is 
entered before the new LPC is invoked. 

When the system expects data, the END command must be preceded by a 
break character. To enter an END command preceded by the break charact- 
er as a line of data, as in a PROCBEF, two break characters must precede 

the command. 

Caution: This command is not the END statement for the Assembler or 
FORTRAN compiler. 

Examples : 

1. The user wants to terminate this editing procedure. The data set 
MY PROG already exists . 

Sys^User : edit myprog 

Sys,User : context 700,900,lm,stm 

Sys,User : number 200, last 

Sys,User : end 

END, in this case, is not preceded by a break character as the sys- 
tem is expecting a command (it prompted with an underscore), 

2. The user creates this data set. 

User : edit myds 
Sys.User : 0000100 line one 

0000200 line two 

0000300 _end 

The system expects data for line 300, so END must be preceded by a 
break character. 

3. If the user wants to terminate processing of data set MYDS in exam- 
ple 2 and begin processing a new data set AMYDS, his entry for line 
300 is 

Sys # User : 0000300 _edit amyds 
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ERASE Conmand 

This command frees the direct access storage assigned to a data set, and 
the catalog entry for a data set is removed from the user's catalog. 



"J 



| Operation | Operand 

(ERASE | [DSNAME=data set namef (irember name) 3 H , SHARED= CY|N>] [ 

DSNAME 

identifies the data set, which resides on direct access storage, to 
be erased, VAM data sets must be cataloged; and physical sequen- 
tial data sets must already be defined by a DDEF command within the 
current task, or must be cataloged. 

Specified as ; a partially qualified data set name, or a fully 
qualified data set name and (optionally) a member name of a VPAM 
data set, or its alias. When specified, the member name or alias 
is enclosed in parentheses and immediately follows the VPAM data 
set name. 

System default ; all data sets qualified by the user's user 
identification, 

SHARED 

specifies for shared data sets whether or not an implicit search of 
the owner's catalog is to be performed (see programming notes). 

Specified as ; 

Y - search. 
N - no search. 

System default ; N. 

Functional Description ; In conversational mode, when the data set name 
specified is partially qualified, the ERASE command tests the DEPROMPT 
operand in the user profile to determine whether each fully qualified 
data set name referenced by the input name will be presented to the 
user. If DEPROMPT=Y, the user is presented one fully qualified data set 
name at a time for disposition. When he responds with E (for erase), 
the data set name is removed from the catalog, and the direct access 
storage occupied by that data set is freed. If he responds with R (for 
retain), no action is taken. If he responds with A (for ALL), all data 
sets with the specified qualifiers are removed from the catalog. If 
DEPROMPT=N, all data sets are erased without prompting. 

In nonconversational mode, all data sets referenced by the input name 
are erased. 

When the user enters a fully qualified data set name, the data set is 
erased, regardless of the value of the DEPROMPT operand or the mode of 
operation. 

When the DSNAME operand does not contain a member name, the direct 
access storage occupied by that data set is freed and the data set name 
is removed from the catalog. 

When the DSNAME operand specifies a member name or alias of a VPAM data 
set, the member name or alias is deleted from the partitioned organiza- 
tion directory (POD), and the storage occupied by th^ member is freed. 
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Any previous DDEF command issued on a data set that is erased is 
released, 

When a user, with sharing access U (for unlimited) f attempts to erase a 
shared VISAM or VPAM data set, the system checks for any active users 
(including the one who issued ERASE) of that data set. 

• If there are active users, the system issues a diagnostic message 
and disregards the ERASE command. In conversational mode, the diag- 
nostic message appears at the terminal , followed by an underscore 
that requests the next command. In non conversational mode, the new 
command is retrieved from the task's SYSIN after the diagnostic mes- 
sage is sent to SYSOUT. 

• If there are no active users, the ERASE command is executed. 

Cautions : The ERASE command cannot be used for data sets on magnetic 
tape. It applies only to data sets on direct access storage. 

The user should not issue an ERASE command for a loaded module. The 
module should be unloaded first. 

In nonconversational mode, the SYSIN data set cannot contain an ERASE of 
itself. 

i,ven though the RET command has been invoked to give a user read-only 
access to a data set, he may still erase that data set. 

If DEPROMPT=N and the ERASE command is issued, all data sets are erased 
without prompting. 

Programming Notes ; DEPRCMPT is initially set to Y. To change its 
value, the user issues the DEFAULT command, with DEPROMPT as an operand. 

The SHARED operand is only meaningful in the situation where ERASE is 
specified with a partially qualified name and an entry exists in the 
user's catalog for a data set which was shared at a lower level of qua- 
lification. In this case, if SHARED=N is specified, the descriptor 
entry will be deleted from the sharer f s catalog, but the data set entry 
will remain in the owner's catalog and the data set will not be erased. 

Examples : 

1. A conversational user wants to erase several data sets whose names 
begin with A.B. DEPROMPT=Y is in his user profile. 

User ; erase dsname=a.fc 

The system asks the user to enter E for erase, A for all, or R for 
retain; it prompts with the fully qualified data set name. 



System: 


A.B.C 


User; 


r 


System: 


A.B.D 


User: 


r 



The system prompts for next coirroand when all data sets with the 
fully qualified name have been presented. 

A conversational user wants to erase all data sets whose names 
begin with the components E. F. 

User : def au It deprompt=n 
erase dsname=e.f 



Part III: Coirirand Descriptions 153 



The system erases the catalog entries and frees the virtual storage 
occupied by all data sets with the fully qualified name E.F. 

EVV Command 

This command catalogs private VAM volumes by volume* 



f j . . — . — . . . . . _ 1 

| Operation | Operand | 

I EVV | DEVICE= ( 2311 1 2 314 1 3330 1 333B> j 

1 | ,VOLUME= (volume serial number I # ...l ) I 

Note : Managers and administrators should see Manager's and Administra- 
tor's Guide for specialized operands. 

DEVICE 

specifies the type of direct access device on which the VAM volume 
resides. 

Specified as s 2311 or 2314 or 3330 or 333E C3330-11 disk) 

VOLUME 

identifies the volume or volumes to be processed* 

Specified as ; a one- to six-digit volume serial number for each 
volume. The volume serial numbers are all enclosed in one pair of 
parentheses. 

Functional Description ; EW catalogs only the user's data sets on the 
volumes specified, but does not open them for use by subsequent 
pro gr amis. 

Programming Notes ; EW allows the user to introduce VAM data sets 
created under other TSS systems into his current astallation, or to 
recatalog his previously deleted VAM data sets* 1 rivate VAM data sets 
created under TSS are automatically cataloged. 

Example ; The user has three private volumes that are necessary for the 
execution of his program. Be wants to enter then into the system. 

User ; ew 2311,1111500,111501,111502) 

The system makes catalog entries for all of the user's data sets 
residing on the specified volumes. 

EXCERPT Command 

This command inserts a region or range of lines from another data set 
into the current data set. 

| . n _ _. .____. . — _ — _ ._ — . — __ — _ — ____ — _ — ^ 

I Operation | Operand | 

i. H -i 

|EXCERPT (DSNAME=data set name! (member name) 3 E,RNAME= region name! 1 

| j [,Nl=starting lineI f N2=ending line 31 | 

L J , . . »„_„™_ -J 



DSNAME 

identifies the data set from which the region line, or range of 
lines, is to be taken. This data set must already be defined by a 
DDEF command within the current task or must be cataloged. When 
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DSNAME refers to a VPAM data set, a member name roust also be 
specified. 

Specified as : a fully qualified data set name and (optionally) a 
member name of a VPAM data set. When specified, the member name is 
enclosed in parentheses and immediately follows the VPAM data set 
name. 

RNAME 

identifies the region from which data is to be inserted into the 
current data set or region, either in its entirety, or within the 
range specified by Nl and N2. 

Specified as ; the name of the region, expressed as a normal or 
quoted string, from which data is to be copied. 

System default : when Nl and N2 are specified, it is assumed that 
the data set named in DSNAME is a line data set. When Nl and N2 
are both omitted, the entire data set named in DSNAME is inserted 
as a single region. When only N2 is omitted, the line designated 
by Nl is inserted. 

Nl 

specifies the line, or the first of a range of lines, that is to be 
inserted in the current region. 

Specified as ; a one- to seven-digit absolute decimal number. 

System default ; If N2 is also omitted, the entire data set — or 
region, if RNAME is specified — is inserted. If N2 is specified, 
Nl is assumed to be the first line in the specified region or data 
set. 

specifies the last in a range of lines that is to be inserted in 
the current region. 

Specified as ; an absolute one- to seven-digit decimal number. Can 
also be specified as LAST to indicate that the lines to be 
excerpted range from the line specified by Nl to the end of the 
data set. 

System default : the entire data set is inserted when Nl and RNAME 
are omitted. If RNAME is specified, the entire region is inserted. 
When only N2 is omitted, only the line specified by Nl is inserted. 

Note : This operand cannot be specified unless Nl is used. 

Functional Description ; Insertion is always made immediately after the 
data line that is the current line location at the time the command is 
issued. The system automatically renumbers the inserted lines by using 
the value of I NCR. If the existing line numbers do not accommodate the 
number of lines to be inserted (for example, the user is trying to 
insert more than 99 lines between line numbers 400 and 500), the command 
is not executed, and a diagnostic iressage is issued. 

The user is prompted when these exception conditions occur: 

• Renumbered lines would overflow the interval between lines. 

• The data set or region to be excerpted could not be found. 

• The line number within the region or data set to be excerpted could 
not be found. 
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• The end of the region was reached before any of the requested lines 
could be excerpted. 

Upon completion of this command # the CLP points to the next line follow- 
ing the last inserted line or to the last inserted line plus the value 
of INCR f whichever is less* 

Caution : A language- processing coirroaed (EDJT f PROCDEF, or PLI) must be 
invoked before the command is issued. 

Programming Notes : When EXCERPT is preceded by a break character and 
follows an INSERT command , the excerpted lines are added to the current 
data set or region. When EXCERPT is preceded by a break character, but 
follows an EDIT or REGION command, the excerpted lines are added to the 
data set or region. In this case, the data set or region must be new. 
If the data set is not new, INSERT must be issued first to position the 
CLP to a line number other than the first line in the data set or 
region. When EXCERPT (preceded by a break character) follows REVISE, 
these lines replace the lines deleted by REVISE „ 

Examples : The user is editing data set XYZ, which has regions XYZ1 and 
XYZ2. He wants to excerpt lines from data set ABC (regions ABCl and 
ABC2) . Lines in all regions are numbered in increments of 100. 

1. The user wants to excerpt the entire data set AEC into new region 
XYZ3. 

User : region xyz3 
Sys,User : 0000100 _excerpt abc 

The system inserts data set ABC into the current region XYZ3. 

2- The user wants to excerpt only lines 300 through 500 from region 
ABCl in data set ABC to the end of region XY' 1. Assume CLP is 
positioned in region XYZ1. 

User : insert last 

Sys f User : 0001100 _excerpt abc # abcl , 300 f 500 

The system inserts lines 300 through 500 froro region ABCl at the 
end of region XYZ1. 

3. The user wants to replace lines 200 through 400 in the current 

region DEF2 with lines 800 through 2000 in region ADD3 of another 
data set MYDS. 

User : revise 200,400,10 

Sys, User : 0000200_excerpt myds # add3 , 800 ,2000 

The system replaces lines 300 through 500 in region CEF2 with lines 
800 through 2000 from region ADD3, using an increment of 10. 



EXCISE Command 

This command deletes a line or a range of lines from the current region. 



j Operation j Operand j 

(EXCISE | [Nl=starting line] I f N2=ending line] | 
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designates the line, or first of a series of lines, to be deleted 
from the current region. 

Specified as s a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 

System default ; the value of the CLP, 

designates the last line in a series of lines to be deleted from 
the current region. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 

System default s only the line specified in Nl is deleted. 

Functional Description ; After EXCISE is executed, the CLP is set to the 
value specified in Nl. The user is then prompted for a command. 

Caution s A language- processing command (EDIT, PR0CDEF, or PLI) must be 
invoked before the command is issued. 

Programming Notes s since the CLP is set to the value of Nl, the user 
may follow this command with either an INSERT or EXCERPT command. The 
REVISE command is equivalent in function to EXCISE followed by INSERT. 

Examples s 

1. The user wants to delete line 113 in the current region. 

User ; excise 113 

System ; _ 

2. The user wants to delete the next 10 lines beyond the CLP in the 
current data set. 

User ; excise nl=+l,n2=+10 

System ; _ 

3. The user wants to delete all lines between 100 and 300 in the cur- 
rent region. 

User ; excise 101,299 

System _ 

EXECUTE Command 

This command introduces a nonconversational task into the system. 

I Operation j Operand j 

j. + f 

| EXECUTE |DSNAME=data set name j 

L J . J 

DSNAME 

identifies the VSAM (f ixed-f orirat or variable-format) data set or 
the VISAM line data set that resides on public storage and that 
contains a series of commands starting with LOGON and ending with 
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LOGOFF* This data set becomes the SYSIN of the nonconversational 
task. 

Specified as ; a fully qualified data set name. 

Functional Description ; EXECUTE requests creation of a nonconversation™ 
al task that is independent of the user's current tasks. A BSN is as- 
signed for the task, and the task is created when task space becomes 
available. 

Programming Notes ; The nonconversational task is controlled by the com- 
mands in the SYSIN data set. Each SYSIN data set represents one task* 

The EXECUTE command differs from the BACK command in these ways : 

1. EXECUTE requests an independent nonconversational task, rather than 
changing the user's conversational task to nonconversational mode. 

2. The data set named in the EXECUTE command must contain LOGON and 
LOGOFF commands and must reside on public storage* The data set 
specified in the BACK command need only conclude with a LOGOFF com- 
mand and can be private or public. 

3. EXECUTE is accepted by the system even if no task space is current- 
ly available. The task will fce created later. If task space is 
not available when the BACK command is issued* the command is can- 
celed, and the user continues conversational processing as though 
he had not issued the command. 

Example ; The user wants to create a nonconversational task. The com- 
mands for the task are created in a data set named NEWTASK. 

User ; edit newt ask 
Sys # User ; 0000100 logon userOl 

0000200 asm progx # y # isd~y 

0000300 logoff 

0000400 _end 

execute newtask 

The system accepts the task and assigns a BSN. 

EXHIBIT Command 

This command allows the user to determine the status of any batch or 
bulk I/O job he has initiated or to obtain a list of all currently ac- 
tive system users. 



j Operation} Operand 



| EXHIBIT jOPTIONl={BWQ£,TYPE={ ALL J BSN. number!] | 

| J UID [ r TYPE= CCONV| BACK) UID. user id | ALL! 1 } 



Note ; For special operands, see Manager 's and Administrator's Guide or 
Operator's Guide . 

OPTION1 

specifies whether to display batch work queue activity, or active 
user task status. 

Specified as : 
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BWQ - batch work queue status. 
UID - active user task status. 

TYPE 

specifies the data to be displayed. 

Specified for BWQ as : 

ALL - All BWQ entries, for the user, are displayed. 

BSN. number - The entry assigned to the BSN is displayed. CThe BSN 
is a decimal number from 257 to 9999.) 

System default : ALL. 

Specified for UID as : 

CONV - All conversational tasks are displayed. 

BACK - All nonconversational tasks are displayed. 

UID.userid - All tasks are displayed for the specified USERID (from 
three to eight alphameric characters). 

ALL - All active tasks are displayed. 

System default : ALL. 

Functional Description : EXHIBIT displays BWQ or user information. For 
0PTI0N1=UID, the following information is displayed: 

USERID — The user's identification. 

TID — The task number assigned to the task. 

TYPE — Either CONV for conversational or BACK for 
nonconversational. 

SYSI — Either a symbolic device address of SYSIN/SYSOUT for a con- 
versational task or a BSN for a nonconversational task. 

For OPTIONl=BWQ, the following information is displayed. 

BSN — Batch sequence number. 

USERID — The user's identification. 

TID — The task number assigned to the task. 

TYPE -- Batch request type: LIST (print), EXECUTE, PUNCH, RTAPE, 

or WTAPE. 
STAT — Status of the job request: 

A — active 

P — pending (awaiting execution) 

C — canceled 

S — shutdown 

E — Erase 

DEV — Type of device required for the job Cfor example, U/R unit 

record) . 
STAID — Station identification for Remote Job Entry (RJE) jobs. 
DSNAME — Data set named for the job (up to 35 characters) . 

Caution : After the user issues the EXHIBIT command, his catalog con- 
tains a pointer to the SYSUBWQ data set. This data set contains the BWQ 
information displayed by EXHIBIT. The user may delete this pointer by 
issuing: 
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delete sysubwq 
Example : 

1. The user wants to display all active tasks. 

User : exhibit optionl=uid # type=ali 

System : ACTIVE USER STATUS AT 10:31:59 06/11/ 7X 
USERID TID TYPE SYS1 

USERID01 0056 CONV 0089 USERID02 0057 CCNV 0090 
USERID06 0060 BACK 0259 

2. The user wants to display the status of his nonconversational job 
that has BSN=262. 

User : exhibit bwq,type=bsn. 262 

Syste m: BATCH WORK QUEUE STATUS AT 10:34 6/11/7X 

BSN USERID TID TYPE STAT EEV STAID DSNAME 

026 2 USERID03 057 LIST P U/R RJESTA01 DSNAKE.HIS 

EXIT Command 

This command bypasses execution of the current program or command, and 
the next command in the source list is executed* 



| Operation j Operand j 

|EXIT | [SIRTEST=CY|N>3 | 

SIRTEST 

specifies whether the system checks for a user-defined SIR routine* 

Specified as : 

N - system does not check* 

Y - system checks for a user- defined SIR routine. If one exists r 
the EXIT function is canceled. 

System default : N. 

Functional Description : The EXIT coirmand returns control to the next 
command or program in the current source list. Any command that follows 
EXIT is ignored. After the current source list is processed, the system 
prompts for a command. If the user then enters the GO command* a previ- 
ously interrupted source list is executed* 

If the SIRTEST parameter is set to Y 8 the system first checks for any 
active user-defined SIR routines. If one is active f the EXIT comnand is 
canceled. When the CLEANUP implicit operand is set to Y # EXIT cancels 
all user-defined AETD and SIR routines. An exit from an AETD routine 
causes control to return to the program that was processing when the 
AETD routine was invoked by an attention interruption. (AETD and SIR 
routines are explained in Assembler User Macro Instructions .) 

Example : The user interrupts a command string containing three program 
calls (PROGA, PROGB, PRCGO? the interruption occurred in PROGB* He 
then issues the EXIT commands 

User : (presses ATTENTION key) 
System : I 
User ; exit 

160 



The system terminates current command processing — PROGB — and 
passes control to the next program in the source list —PROGC. 

If the user had interrupted a source list before he entered the source 
list containing calls to PROGA, PROGB, and PROGC, he could resume proc- 
essing at that earlier source list* by issuing the GO command after the 
system had processed PROG A, PROGB # and PROGC. 

EXPLAIN Command 

This command allows the user to obtain explanations of entire messages, 
or of designated words within a message, that the system has generated. 

I T " 1 

| Operation | Operand J 

K + , 

I EXPLAIN IJMSGID | ORIGINJ word (TEXT | RESPONSE! | 

| | [, message identification! | MSGE|MSGS> | 

t JL 1 

MSGID 

the identification of some message in the message file (SYSMLF). 
Indicates that the user wishes to see the message identification. 
Only the message ID will be shown. 

Specified as : MSGID 

ORIGIN 

specifies that the user wants to have displayed the location of the 
program (the system's or the user's) that caused the message to be 
generated. Every message has an identification code, which is also 
displayed. 

Specified as : ORIGIN 

Note : This form of EXPLAIN assists the user in isolating the 
module that caused the message generation and is intended primarily 
for system programmers. 

word 

specifies that a word, within the text of the last message, is to 
be explained. 

Specified as : a normal or quoted string. 

TEXT 

specifies that a code-identified message will be displayed in full 
text . 

Specified as : TEXT 

RESPONSE 

specifies that the possible responses to the last message are to be 
displayed. 

Specified as : RESPONSE 

NSGE 

indicates that the user wants the extended message to be displayed. 

Specified as : MSGE 

MSGS 

indicates that the user wants the standard message displayed. 
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Specified as : MSGS 

message identification 

specifies a message ID for which a word, text, response, extended 
message, or standard message is to be displayed* This form. is used 
when the request is for a message other than the most recently is- 
sued iressage. 

Specified as : a one- to eight -character message ID. 

Functional Description : If no operand is used with the EXPLAIN command, 
the preceding message is restated more explicitly. If the message is 
not explainable but contains explainable words, these words are ela- 
borated; otherwise, the system's reply is "no explanation." 

Programming Notes : Only one of the options may be specified when an 
EXPLAIN command is issued. If the user wants to use more than one 
option, he roust give additional EXPLAIN commands. 

Example : A user is executing a module named UPTCM as a part of his con* 
versational task. This module proirpts for the data set organization, 
and this message is displayed at the user's terminal: 

IPTCM170 ENTER VAM DS. CRG. 

The user dees not understand what is required, so he requests an 
explanation: 

explain 

The explanation for the current message UPTO4170 is displayed: 

UPTCM170 A VAM DATA SET'S ORGANIZATION DEFINES THE OVERALL RELATION- 
SHIPS OF THE LOGICAL RECORDS MAKING UP THE EA r ,A SET 
ENTER. . .VP. . .OR. . .VS. . .OR. . . VI 

After reading the message explanation, the user wants more information 
about the explainable word VAM: 

explain vam 

A definition of VAM is displayed at his terminal. An explanation roes- 
sage can, in turn, contain explainable words for which further clarifi- 
cation can be requested. Word explanations can continue to any number 
of levels. 

The user eventually understands the message, but now he is uncertain of 
the form he should use in a valid response. He enters: 

explain response 

Now, all possible responses to the message identified by OPTCM170 are 
displayed: 

VALID RESPONSES ARE: VP , VI, VS 

Later in his terminal session, the user again needs the explanation of 
UPTCM170? he enters: 

explain text,uptcm!70 

The TEXT option with the message ID is necessary br^e because the expla- 
nation requested is not for the most recently issued message. 
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FILED EF Command 

This command defines a dataset and describes its characteristics to the 
system (DDEF>. Additionally, it provides the link between TSS and OS 
ddnames for the Program Product Language Interface. 

Note ; The operands with the exception of MACRO, OSEDN and OSKEYLE are 
identical to DDEF operands. 

I T * 

| Operation | Operand | 

^ 4 1 

1 FILEDEF |DDNAME=ddname ,DSORG=VI |VS| VP[ f DSNAME=dsname. . • 1 | 

| J [ ,MACRO=CONC) [ f OSDDN=osddnamel I, OS KEYLE=n umber 1 | 

l J i 

DDNAME, DSORG, DSNAME, . . . 

these are identical to DDEF operands defined in this manual. 

MACRO 

signifies that the dataset specified in the ESNAME operand is to be 
concatenated with another dataset with the same OS ddname (OSDDN 
parameter) . The OSDDN parameter is required in this case because 
the TSS ddname C DDNAME option) cannot be the same for both data- 
sets. See example. 

Specified as : CONC 

OSDDN 

specifies the OS ddname with which the TSS dataset is to be associ- 
ated. If no OSDDN is specified, it is assumed to be the same as 
the TSS ddname. If the ddname is specified as SYSxxx, the TSS 
ddname will not be changed to TSSxxx, but the OS ddname will remain 
SYSxxx. 

OSKEYLE 

specifies the length of the key. This parameter is required when 
OS/VS BDAM or ISAM access methods are being simulated. 

Functional description ; The FILEDEF command causes a EEEF to be issued 
against the TSS dataset specified with the ddname specified. It also 
causes a control block to be built which will be the link between the OS 
dataset specification and the TSS specification. The DDEF is issued 
exactly as written in the first operands of the FILEDEF parameter list. 

Examples ; FILEDEF a,vp,dsetl 

A control block is created relating the TSS dataset ("dsetl") and a TSS 
ddname of "a" with an OS description of that dataset with an OS ddname 
also of "a". 

FILEDEF b,vi,dset2,0SDDN=dcbout 

In this case the TSS and OS ddnames are different but the control block 
built associates them at execution time. 

FILEDEF macl,vp,macbbl,CSDDN=syslib FILEDEF 

mac2,vp,macbb2,OSDDN ss syslib,macro=conc FILEDEF 

mac 3 ,vi , roacbbB ,OSDDN=syslib,macro=conc 

This example shows how to "concatenate" three macro libraries to be read 
by one OS read statement and one OS ddname. The last one filedef fed 
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will be searched for the requested member and if it is not found, the 
previous will be searched, etc. The TSS libraries may be partitioned or 
region datasets. This facility is only valid if the OS partitioned 
access method is used by the executing program. 

A FILEDEF command referring to the same dataset name as a previous FILE- 
DEF will replace the old ddname with the new ddname. 



FILEREL Command 

This command deletes the data definition established by a previously is- 
sued FILEDEF command. It also disconnects the OS/TSS link. 



i 1 ' ■ — 1 

| Operation | Operand j 

j. . i 1 _ - , 

I FILEREL |OSDDN=osddname j 

L J . . . J 

OSDDN 

identifies the dataset definition created by a FILEDEF command. 

Functional description ; FILEREL will cause a RELEASE to te done on each 
TSS ddname associated with the specified OS ddname. It also causes the 
control block linking the os dataset specification with the TSS specifi- 
cation to be destroyed. This will not be done unless all DCB's against 
the datasets are closed. 

Example : FILEREL syslib 

This will cause all filedef f s associated with the OS dataset specifica- 
tion to be released as well as destroying the li iking control blocks. 

FTN Command 

This command invokes the FORTRAN compiler to compile a source program 
module. 



j Operation j Operand 

|_ -l — 1 

| FTN JNAME=module name [ ,STORED=£YI N}] £ , VERID=versicn 

| identification! 

j £,ISD=£Y|N}} £,SLIST=£Y J N} 1 £ , OELIST=C Y| N}} [ ,CRLIST=£Y| N>) 
j E,STEDIT=£Y]N}] £,MMAP=CY| N>] E f BCD=CYlN> J I, PUELIC=C Y\®} 1 
| E,LISTDS={YJNH E ,LINCR=( first line number , increment) 1 

L J i 



NAME 



identifies the object module to be created. If the source program 
module (that is, source language data set) is prestored, the user 
must have named it : 

SOURCE. name 

If it is not prestored, the system automatically prefixes SOURCE. 
to the source program module name. The listing data set is auto- 
matically named: 

LIST.name(O) 



164 



Specified as : the part of the source program module name that fol- 
lows SOURCE. — if the source program is prestored — otherwise, 
any one to eight alphameric characters , the first of which must be 
alphabetic. The object module name must not be identical to other 
external entry points in the library in which it is stored. See 
FORTRAN Programmer's Guide for a complete list of naming rules. 

STORED 

specifies whether the source program module is prestored. 

Specified as : 

Y - source program is prestored. 

N - source program is not prestored. 

System default : N. 

VERID 

specifies the version identification to be assigned to the object 
program module. 

Specified as : from one to eight alphameric characters. 

System default : the listing and the object modules are 
time-stamped. 

ISD 

specifies whether an internal symbol dictionary (ISD) is to be 
produced. 

Specified as : 

Y - ISD is produced. 

N - ISB is not produced. 

System default : Y. 

SLIST 

specifies whether a source program listing is to be produced. 

Specified as : 

Y - source program listing is produced. 

N - source program listing is not produced. 

System default : Y. 

OBLIST 

specifies whether an object program listing is to be produced. 

Specified as : 

Y - object program listing is produced. 

N - object program listing is not produced. 

System default : N. 

CRLIST 

specifies whether a cross-reference listing is to be produced. 

Specified as : 
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Y - cross-reference listing is produced. 

N - cross-reference listing is not produced. 

System default ; N. 

STEDIT 

specifies whether the edited symbol table is to be listed. 

Specified as : 

Y - edited symbol table is produced. 

N - edited symbol table is not produced. 

Systerc default : N. 

MMAP 

specifies whether a memory map is to be produced. 

Specified as : 

Y - memory map is produced. 

N - memory map is not produced. 

System default : N. 

BCD 

specifies whether input contains the BCD (binary coded decimal) 
form cf special characters. 

Specified as : 

Y - input contains BCD form of special characters. 

N - input does not contain BCD form of special characters. 

System default : N. 

PUBLIC 

specifies whether the object irodule created has a public (rather 
than private) CSECT attribute. 

Specified as : 

Y - module has public CSECT attribute. 

N - module does not have public CSECT attribute. 

System default : W. 

LISTDS 

determines whether the user- requested listings from the language 
processors are to be placed in a list data set or placed directly 
on SYSOUT. 

Specified as : 

Y - placed in list data set. 
N - listings to SYSOUT. 

System default : Y. 
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LINCR 

specifies the line number to be assigned to the first line of the 
source language data set and the increment to be applied to suc- 
ceeding line numbers. 

Specified as : two three- to seven-digit decimal numbers, separated 
by a comma and enclosed in parentheses; the last two digits in each 
number must be zeros. 

System default : (100,100). 

Note: This operand is ignored when STORED=Y. 

Functional Description : See "Language Processing* in Section 3 of Part 
II. 

Caution : The command is canceled if invalid operands are entered. 

Example : The user wants to enter FORTRAN source language statements 
from his terminal. The object module is to be named RAADER; the start- 
ing line number and the increment are 100. Source program, object pro- 
gram, and cross-reference listings are requested. The following program 
multiplies two digits : 

Sys,User : ftn raader ,slist=y,oblist=y,crlist=y,isd=n 

0000100 read (5,10) a,b 

000020010 format (lx,2f6.2) 

000030020 format (3fl0.3) 

0000400 atb=a*b 

0000500 write (6,20) a,b,atb 

0000600 stop 

0000700 end 
Systeir : _ 



FTNH Command 

This command will invoke the FORTRAN H EXTENDED program product using 
the Program Product Language Interface. 



j Operation | Operand | 

y 4 1 

| FTNH |NAME=modulename [ ,CS0PTS= ( opt 1, opt 2, . . . ) ] j 

1 | [,SOURCEDS=sourcedsname] j 

NAME 

identifies the name by which the object program will be known to 
TSS. It consists of one to eight alphameric characters, the first 
of which is alphabetic. If the SOURCEDS option is not specified, 
there must exist a dataset called SOURCE .name which is assumed to 
be the source program to be compiled. 

OSOPTS 

specifies a list of OS options to be in effect during the 
compilation. 

Abbreviated Abbreviated 

Form Form Form Form 

SOURCE | NOSOURCE SJNOS XREFj NOXREF 
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LINECOUNT (number)* 



LC (number) 



NAME ( name) • 



LISTI NQLIST 
OBJECT | NOOB JECT 2 
DECK | NODECK 
OPTIMIZE(0|1|2) 3 
NOOPTIMIZE 
FORMAT | NOFORMAT* 
GOSTMT] NOGOSTMT 5 
MAP 1 NQMAP 



OBJ | NCOBJ 

OPT(0|H2) 

NCOPT 

FMTfNOFMT 



EBCDIC ! BCD 
SISECMAXinnnK) 



EBIBCD 



AD (value) 



AUTODBL( value) 

ALCI NOALC 

ANSF|NOANSF 

FLAG (I) IFLAG(I)1FLAG(S) 



* Compiler also accepts the old form: LBiECNT=xx 

a Compiler also accepts the old form: LOAEJNOLOAD 

3 Compiler also accepts the old form: OPT=OI1|2 

** Compiler also accepts the old form: EDIT|NOEDIT 

5 Compiler also accepts the old form: IEJNOID 

6 Compiler also accepts the old form: NAME=name 

Additional information is available in Appendix K and the CS FORTRAN H 
EXTENDED Programmer's Guide. 

SOURCEDS 

specifies the name of the input dataset (S.SIN to CS) if source, 
module is not to be used. 

GAV Command 

This command searches the entire Combined Dictionary for whatever types 
of entries the user has specified and presents the data on the user's 
SYSOUT. 



j Operation j Operand 

j. + 

| GAV j CTYPE=CSYN1DEF|CSW}] 

L J — 



1 

I 



TYPE 



identifies the type of search. 

Specified as : SYN (Synonyms), DEF (Defaults), or CSW (Command Sym- 
bol Words). 

System Default : All three types will be processed. 

Functional Description : The Combined Dictionay will be searched 
for the type of entry specified. If TYPE is defaulted, a search 
will be performed for all three types. Output will be presented at 
the user's SYSOUT in the form 'TERM VALUE' for synonyms and 
defaults; for command symbol words t only the names will be listed, 
though the kind of CSW will be indicated by the header. 
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Examples : If SYNONYM B * BARB and SET A = 8 had been previously 
entered during the task, and no other synonyms or command symbol 
words exist for this task, then; 

User : gav syn 
System : *** SYNONYMS*** 
B BARB 

User : gav csw 
System : ***INTEGER CSW0RDS*** 
A 

GDV Command 

This command will list on the user's SYSOUT the default value associated 
with a specified term. 



I " T " 1 

J Operation | Operand I 

| GDV |DFLT = term j 

DFLT 

is the term which is to be searched for. 

Specified as : 1-8 character name. 

Default : None 

Functional Description : The user's Combined Dictionary will be 
searched for the specified term. If this term is found, its cur- 
rent default value will be listed. If not, the message "THERE IS 
NO DEFAULT" will be issued. 

Example ; 

User : default base = 150 

User : gd v ba se 

System : 150 

GO Coirmand 

This command resumes execution of a previously interrupted object pro- 
gram (or command). 



j Operation j Operand j 

[GO | ^ J 

Note : There are no operands. 

Functional Description : GO gives control to the most recently inter- 
rupted object program or command. When GO is followed by other commands 
in a command statement, the succeeding commands are ignored after GO is 
executed. 

The GO command issues a message stating the location at which execution 
continues. 

Caution : In a dynamic statement, GO is meaningless; a diagnostic mes- 
sage is issued. In an immediate statement, GO must appear last, because 
the commands following are ignored; no diagnostic message is issued. 
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Programming Notes ; GO is meaningful when it follows an attention inter- 
ruption or after PCS has been used to S10P execution. Otherwise* the 
command is canceled. 

Example : In executing his program ABC, the user wants to interrupt 
execution and modify his program. 

User : call abc 

The system invokes ABC. 

User : (presses ATTENTION key) 

System : i 

User: set 5r=6;go 

The system resumes executing ABC from the point of interruption. 

GOTO Command 

The GOTO command provides the ability to branch forward in PROCDBFs* 



j Operation (Operand j 

| GOTO I (command J OUT) 'comment'} J 



command) • comment • 

specifies the command statement to which control is to be passed. 

Specified as : a command name or comment no longer than 8 charac- 
ters beginning immediately after the underscore or semicolon of the 
destination statement. 



OUT 



specifies that an immediate return to the calling procdef is to be 
made. 

Functional Description s The GOTO command is to be used to branch 
forward in a PROCDEF or nest of PROCDEF 8 s* The GOTO command rou- 
tine searches the source list until 1) the destination is found or 
2) the end of the PROCDEF is encountered or 3) the end of the nest 
of PROCDEF" s is encountered. In case 2, if the destination was OUT 
the search stops and return is made as if the PROCDEF had couple ted 
normally. If the destination was not OUT, the search continues un- 
til case 1 or 3 occurs. If 3> occurs, control is returned to the 
command system. 

Programming Notes : The destination operand is to be specified as 
command name or as 'comment*. The command or comment must begin in 
the first column of the PROCDEF line or immediately after a semico- 
lon if multiple commands per line are used. The destination 
operand may also be specified as input to the procdef - i.e., GOTO 
$command or GOTO " $ccmment * • In addition, if GOTO OUT is speci- 
fied, control will be returned to the program calling the PROCDEF 
(the command system or another PROCDEF) as if the PROCDEF had com- 
pleted normally. If the command or comment cannot be found within 
the PROCDEF in which the GOTO exists (except for OUT as above), 
control will be returned to the command system. Note that the com- 
mand or comment must be local to the GOTO or in a higher level PRO- 
CDEF, i.e., you cannot "GOTO" a command or coitront in a lower level 
PROCDEF. The GOTO command may be used as the ooject command in an 
IF statement. 
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Examples : 

The user enters the following PROCDEFs: 

User ; procdef samplel 
Sys,User : 0000100 pararo $1 

0000200 display "begin samplel 1 

0000300 if ^l^^igoto 'call* 

0000400 if ^l^'l'jgoto "label" 

0000500 if ^l^^jgoto display 

0000600 goto out 

0000700 'label* display "one";goto "call 1 ; display ■two 1 

0000800 'call 1 sarople2 $1 

0000900 display "return from saraple2" 

0001000 _end 

User ; procdef sample2 
Sys,User ; 0000100 param $1 

0000200 if "$l"="3"igoto "label" 

0000300 if "$l"="2"jgoto "two" 

0000400 display "error in input for sample2" 

0000500 goto xxx 

0000600 "label" display " sample2-three" 

0000700 goto out 

0000800 "two" display "sarople2-two" 

0000900 _end 

If the PROCDEFs specified above were issued with the following inputs, 
the outputs would be: 

1. user samplel 1 

System : BEGIN SAMPLE1 
ONE 
ERROR IN INPUT FOR SAMPLE2 

The GOTO xxx statement in sample2 causes an exit from all PROCDEFs, not 
a return to PROCDEF samplel. 

2 - User : samplel 2 

System : BEGIN SAMPLEl 
TWO 

SAMPLE2-TWO 
RETURN FROM SAMPLE2 

The GOTO display in samplel will not cause a branch to ' LABEL' display 
"one" because "display* does not begin in the 1st column of the command 
line. 

3. User : samplel 3 

System : BEGIN SAMPLEl 
SAMPLE2-THREE 
RETURN FROM SAMPLE2 

GOTO "label" in sample2 does not cause a branch to "label" in samplel. 
Also GOTO out in sample2 causes a return to the samplel PROCDEF. 

User : samplel x 
System : BEGIN SAMPLEl 

GOTO OUT in samplel causes an exit from the PROCDEF. 
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GSV Command 

This coiwnand will list the synonym value associated with a specified 
term, or all terms associated with a specified synonym value. 



i 1 ' "' — —. _ „ — «„™_ 1 

I operation | Operand j 

,. _ — 4 . — . , 

|GSV JNAME = value or term t , SEARCH= (T|V}1 j 

i j . . _ . ._. _j 

NAME 

identifies the value or term which is to be searched for in the 
user's Combined Dictionary. 

Specified as : if a term is specified - a 1-8 character name. If a 
value is specified, a 1-244 character name, 

SEARCH 

identifies the type of search that is to be performed. 

Specified as ; T or V 

System default ; V 

Functional Description : If SEARCH-T, the Combined Dictionary will 
be searched for the specified term. If the term is found, the 
value for the term will be listed on the user's SYSCUT. If SEARCH^ 
V, or if SEARCH is defaulted, the entire Combined Dictionary will 
be searched for all terms associated with the specified value. The 
term(s) and value will be presented on the user's SYSCUT. 

Programming notes : To avoid confusion between 'term tf and "value* 
— remember that synonyms are entered in this manners 

SYNONYM term = value. 



Examples: If 


SYNONYM L = 


User: 
System: 


gsv 1, t 
LIST 


User: 
System: 


OR 
gsv list 
L list 



HASM Command 



This command causes the OS ASM H Program Product to be invoked using the 
Program Product Language Interface. 



j Operation | Operand 1 

| HASM |NAME=module name£,0S0PTS=(optl,opt2, )] | 

j j [,SOURCEDS=sourcedsnarae] j 

NAME 

identifies the name by which the object program will be known to 
TSS. It consists of one to eight alphameric characters, the first 
of which is alphabetic. If the SOURCEDS option is not specified, 
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there must exist a dataset called SOURCE. name which is assumed to 
be the source program to he compiled. 

0S0PTS 

specifies a list of OS options to be in effect during the * 
compilation. 

Each of these options has a standard or default value which is used 
for the assembly if you do not specify an alternative value. 

The option list must not be longer than 100 characters, including 
the separating commas. You may specify the options in any order. 
If contradictory options are used Cfor exairpie, LIST and NOLIST), 
the rightmost option (in this case, NOLI ST) is used. 

The assembler options are: 

[DECK|NODECK) [, OBJECT I NOOBJECT] I , LIST| NOLIST] 

C ,TEST|NOTESTl I , 9 XREF(FULL| SHORT > f \ NOXREF 1 

[ , • LINECOUNT ( nn) ■ ] [ , ALIGN] NQALIGN] [ , RENT I NORINTl 

[ , ESD INOESDl [ , RLD| NORLD] C ,BATCH| NOBATCH] 

[ , ' SYSPARM (string) ,FLAG(nnn) ■ 3 

DECK 

text cards are written to the LOAD. module dataset in preparation 
for object deck conversion. 

OBJECT 

text cards are placed in the dataset specified as PUNCH. module. 

Note : The OBJECT and DECK options are independent of each other. Both 
or neither can be specified, but only the output of DECK is used for 
conversion to a TSS formatted module. 

ESD 

the assembler produces the External Symbol Dictionary as part of 
the listing. 

the assembler produces the Relocation Dictionary as part of the 
listing. 

BATCH 

the assembler will do multiple assemblies under the control of a 
single set of job control language cards. 

LIST 

an assembler listing is produced. Note that the NCLIST option 
overrides the ESD, RLD, and XREF options. 

TEST 

the object module contains the special source symbol table required 
by the test translator (TESTRAN) routine. 

XREF (FULL) 

the assembler listing will contain a cross reference table of all 
symbols used in the assembly. This includes symbols that are de- 
fined but never referenced. The assembler listing will also con- 
tain a cross reference table of literals used in the assembly. 
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XREF (SHORT) 

the assembler listing will contain a cross reference table of all 
symbols that are referenced in the assembly. Any symbols defined 
but not referenced are not included in the table* The assembler 
listing will also contain a cross reference table of literals used 
in the assembly. 

RENT 

the assembler checks for a possible coding violation of program 
reenterability. 

LINBCOUNT (nn) 

the number of lines to be printed between headings in the listing 
is nn. The permissible range is 1 to 99 lines. 

NOALIGN 

the assembler suppresses the diagnostic message "IEV033 AUGMENT 
ERROR" if fixed point, floating-point, or logical data referenced 
by an instruction operand is not aligned on the proper boundary. 
The message will be produced, however, for references to instruc- 
tions that are not aligned on the proper (half word) boundary or for 
data boundary violations for privileged instructions such as IPSW. 
DC, DS, BXD, or CXD constants, usually causing alignment, are not 
aligned. 

ALIGN 

the assembler does not suppress the alignment error diagnostic mes- 
sage; all alignment errors are diagnosed. 

FLAG (nnn) 

error diagnostic messages below severity code nnn will not appear 
in the listing. Diagnostic messages can have severity codes of 0, 4, 
8, 12, 16, or 20 (0 is the least severe). MNOTEs can have a 
severity code of through 255. 

For example, FLAG (8) will suppress messages for severity codes 
through 7- 

SYSPARM (string) 

•string* is the value of the system variable symbol SSYSPARM. The 
assembler uses feSYSPARM as a read-only SETC variable. If no value 
is specified for the SYSPARM option, SSYSPARM will be a null 
(empty) character string. The function of SSYSPARM is explained 
inthe Assembler H Language Specifications and in OS/VS and DQS/VS 
Assembler Language. 

You cannot specify a SYSPARM value longer than 56 characters. Two 
quotes are needed to represent a single quote, and two ampersands 
to represent a single ampersand. 

SYSPARM (U£AM, ,, EO).FY) 

assigns the following value to SSYSPARM: 

UAM,"B0).FY. 

Any parentheses inside the string must be paired. 

Note ; Even though the formats of some of the options previously sup- 
ported by Assembler H have been changed, you can use the old formats for 
the following options: ALGN (now ALIGN), NQALGN (NOALIGN), LINECOT=nn 
(LINECOUNT(nn)), LOAD (OBJECT), NOLOAD (NOOBJECT) . MULT (BATCH), NOMJLT 
(NOBATCH), XREF (XREF(FULL) ) , MSGLEVEL=nnn (FIAGCnnn)). 
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Default Options : If you do not code an option, the assembler 
assumes a default option. The following default options are in- 
cluded when Assembler H is shipped by IBM: 

(D£CK f NOOBJECT # LIST f NO , TEST r , XREF(FULL> ,LINEC0UNT (55) § , ALIGN, KCBATCH 
, - SYSPARM ( ) , FLAG (0 ) ■ > 

However, these may not be the default options in effect in your 
installation. The defaults can be respecified when Assembler H is 
installed. For example, NODECK can be made the default in place of 
DECK. Also, a default option can be specified during installation 
so that you cannot override it. 

For further information, please refer to the OS Assembler H Pro- 
grammer • s Gu ide • 

SOURCEDS 

specifies the name of the input dataset if SOURCE.module is not 
used. 

Functional Description : HASM will invoke the ASM H program product. 
The interface routine invoked by the HASM command will filedef all re- 
quired datasets. PPLI will allow processing of a TSS region dataset in 
place of a VP dataset (P0 in CS/VS terms). The filedef s may be overri- 
den by issuing the appropriate filedef commands before entering HASM. 

One of the outputs of the HASM process will be a LOAD. name dataset. 
This dataset will be input to the object deck converter CCESHR) , which 
will convert it to a TSS loadable irodule. Additional output is a LIST, 
name dataset which may be printed at the user's discretion. 

IF Command 

This command, included in a command statement, specifies a condition 
that must be satisfied if the remaining commands in the statement are to 
be executed. IF can be combined with any other coirmand or commands in a 
conditional statement to designate any valid condition. 

I T ' ' T 

| Operation | Operand | 

j. ^ . , 

1 IF | condition J 

i J i 

condition 

specifies a condition that must be true to allow execution of com- 
mands that follow the IF command in the conditional statement. 

Specified as : a logical expression. 

Functional Description : If the coirmand statement containing the IF com- 
mand is a dynamic statement, the logical expression is evaluated only 
when the instruction locations specified in the AT command are reached. 
The counter associated with each dynamic statement containing an AT com- 
mand, referred to by the special character %, is incremented by one when 
the specified instruction location is reached, whether or not the IF 
condition is true. (See "Types of Operand Specification* in Section 3 
of Part II.) When more than one IF carina nd appears in the same condi- 
tional statement, the commands in the statement are executed from left 
to right until an IF that specifies an unsatisfied condition is encoun- 
tered, or the end of the statement is reached. For example: 

if X<0?display X;if Y<0,*display Y 
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X will be displayed whenever X is less than 0, but Y will be displayed 
only when both X and Y are less than 0. 

Programming Notes : An IF command iray stand alone, but it performs no 
useful purpose. If the condition is true, there are no further actions 
to be performed. If the condition is false, the remainder of the state- 
ment is ignored. In either case, the results appear to be the saire. 
The dynamic statement counter {%} can be used in forming a logical ex- 
pression for the IF command. The counter may be used to control the 
frequency at which, or the interval through which, the statement con- 
taining IF is effective. In statements other than dynamic statements, 
the counter has a constant value of 1. 

Examples : 

1. The user wants to test a logical condition and, if that condition 
is true, to issue other program control commands. The condition is 
true only when the value of his internal symbol variable PGM.NUM is 
less than or equal to 14. 

User ; if pgm.ntim <=1*» ;display pcm 

The system evaluates the logical expression and executes DISPLAY 
only if the condition is true. 

2. The user wants to execute more PCS commands every fifth time. 

User : at p.x;if % = (%/5)*5? 

The statement is not evaluated at this time. The system assigns a 
number to the dynamic statement. 

INSERT Command 

This command places the data lines entered at tie terminal in the cur- 
rent region. 



| Operation j Operand j 

| INSERT | [Nl=starting line] [ , INCF=increment] | 



Nl 



I NCR 



identifies the line that is to be the first line or that is to pre- 
cede data lines that are to be inserted in the current region or 
data set. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 

System default : the value of the CLP. 

specifies the value by which line numbers assigned to the new data 
lines are incremented. The value of Nl is the base against which 
the line numbers are incremented. 

Specified as : from one to seven decimal dig-'ts. to all-zero in- 
crement is not allowed. 
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System default ; 100. 

Functional Description : If Nl (the CLP, if Nl is defaulted) does not 
exist, the first line is inserted at Nl. The increment is then added 
for all subsequent lines inserted. *If Nl exists, the first line is 
inserted at Nl plus the value of INCR. If this line also exists, the 
command is canceled. When inserting lines between two existing lines, 
the insertions are made until a new line would overlay an existing line 
or until the new line is greater than the limiting line. When either of 
these situations occurs, the command is canceled. 

INSERT prompts the user with line numbers for his insertions. Each time 
the RETURN key is pressed, a line number incremented by the value of 
INCR is issued. To terminate INSERT processing, enter a command pre- 
ceded by a break character. The CLP is set to the last line entered 
plus the value of INCR. If adding INCR to the last line entered exceeds 
the next existing line, CLP is set to the next existing line. If no 
data lines are entered, the CLP is set to Nl. 

Caution : INSERT does not overlay an existing line with a new line. A 
language- processing command (EDIT, PROCDEF, or PLI) must be issued be- 
fore the command is issued. 

Programming Notes : INSERT is provided for consecutive insertions. 
UPDATE should be used for the insertion of arbitrary line numbers. 

Examples : 

1. The user wants to insert data lines, in increments of 10, following 
line 600. 

User : insert 600,10 

Systeir : 0000610 

Note : Assuming that line 700 is the next existing line number af- 
ter line 600, nine lines can be inserted. 

2. The user wants to insert lines in the data set 10 lines beyond the 
CLP, with an increment of 100. The CLP is line 500. 

User : insert nl=+10 

System : 0001500 

3. The user wants to add lines to the end of an existing data set. 

User : insert last 

The system prompts with the last line number plus the value of 
INCR. 

4. The user wants to generate a region with a blank name in a new 
region data set. 

User : default regsize=8 

edit myds 
Sys,User : insert 
System : 0000100 

Note : The REGION command must be issued to generate a region with 
a blank name in an existing region data set. EDIT automatically 
positions the CLP to the first region in an existing data set, and 
INSERT, without operands, assumes this value for the CLP. 
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JOBLIBS Command 

This coirmand gives the user the ability to move any one of his JOELIBs 
to the logical top of the JCBLIB chain. 



j Operation j Operand j 

I- + » 1 

(JOBLIBS |DDNAME=data definition name j 

L J . . J 



DDNAME 

specifies the DDNAME of the DDEF used to define the JOBLIB to be 
moved to the top of the JOBLIB chain. If defaulted f a diagnostic 
is issued and the command is canceled. 

Functional Description ; Used to move the specified JOELIB and its asso- 
ciated DCB from its present position in the chain to the logical top of 
the chain. This positioning is important when the loader and compilers 
retrieve or store modules. 

Example : The user wants to store the next object program he assembles 
in the data set LIB1, which he defined as a JOBLIB earlier in his termi- 
nal session. LIB1 has a DDNAME of Al and currently is not the top JCB- 
LIB in the chain. The user enters: 

User : joblibs al 

The system moves the data set LIB1 to the top of the JOBLIB chain. 

K, KA, and KB Commands 

These commands transfer control from the 1056 Card Reader to the attach- 
ed 10 52 Printer-Keyboard. The KA and KB commends also control the 
user's input character set. 

I 1 . ._. . — . , . — 1 

| operation [ Operand | 

[K | I 

i 1 — * — i 

| Operation | Operand | 

IKA | ^ I 

| Operation | Operand | 

Y \ — — — — H 

|KB I J 

Note : These commands have no operands. 

Functional Description : The K, KA, and KB commands indicate to the sys- 
tem that input will come from the user's 1052 Printer-Keyboard. To use 
these commands, the user can include a K, KA, or KB card in his card 
deck in the 1056 Card Reader; when the system reads this card, control 
will return to the attached 1052 Printer-Keyboard. The user can also 
use the KA and KB commands to change the input character set while he is 
entering commands from a terminal. The commande I: unction as follows: 
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K — transfer control from the 1056 Card Reader to the attached 
1052 Printer-Keyboard. If the card reader mode was CA, the 
terminal mode is KA; if the card reader mode was CB, the ter- 
minal mode is KB. 

KA — transfer control to the pointer -key board and use the full 

EBCDIC character set (that is, uppercase and lowercase charac- 
ters are used as such; no folding takes place). 

KB — transfer control to the printer-keyboard and use the folded 
EBCDIC character set (see below). 

The input character set is determined by the value of the ALPHABET 
operand: when the user first logs on to the system or enters the KB 
command, the ALPHABET=1, which indicates that the folded character set 
is used for input. When the user enters the KA command, ALPHABET=2, and 
the full EBCDIC character set is used. In the folded mode, lowercase 
letters are converted to their uppercase equivalents. In the full or 
"unfolded" mode, lowercase letters are not converted? they are used as 
they are entered. In either mode, the special characters, , ", !, a, 
#, and $ are valid alphabetic characters. They are never folded. Note 
that system-supplied commands are coded in uppercase letters. If the 
user is in KA mode, he must shift to upper-case to execute these 
commands . 

The values set with the KA and KB commands are in effect only for the 
duration of the user's task; however, if a PROFILE command is entered, 
following a KA or KB in the same task, the values are in effect for sub- 
sequent tasks until the value is changed. For example, if the user is 
in KB mode and enters the KA command, he will be in KA mode only for the 
duration of the task. When he logs on again he will be back in KB mode. 
If, however, he entered a PROFILE command later in the same task, he 
will be in KA mode when he logs on for subsequent tasks. (See the de- 
scription of the PROFILE command in Section 6 of Part II.) 

Examples : 

1. The user wants to have the system take input from the 1052 Printer- 
Keyboard when the last card is read from the 1056 Card Reader (see 
C, CA, and CB Commands). To do this, the user includes a K, KA, or 
KB card as the last card in his input deck. When the system reads 
this card, it goes to the 1052 Printer-Keyboard for input. 

2. The user wants to change his input character set from folded mode 
to unfolded mode. Be is already entering input from the terminal. 

User ; KA 

The system accepts input in full EBCDIC mode. 

KEYWORD Command 

This command displays command names, and their operands, from the user's 
command library — USERLIB(SYSPRO) or from the system's command library 
— SYSLIB(SYSPRO). 



j Operation j Operand | 

t + , 

[KEYWORD j [PROCNAME=coir^and name] j 

* i . J 

PROCNAME 

specifies a command name for which the user wants the operands 
displayed. 
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Specified as ; a valid comma nc name. 

System default : all coalman ds and operands are displayed fronr the 
user's command library — USERLIB C SYSPRO ) . 

Functional Description s The KEYWORD command displays command names and 
their associated operands from the user 3 s command library a It displays 
the command name, all the parameters included on the PARA** line of a 
PROCDEF, or all the keywords defined in the BPKD macro instruction for a 
BUILT IN-defined command. If the user does not include a command name as 
the operand of the KEYWORD command, all the command names and their 
operands are displayed from the SYSPRO member of the user s s USERLIB data 
set. If the user specifies a command name that does not exist, a diag- 
nostic is issued and the command is canceled. 

Programming Notes ; The KEYWORD command also displays command names and 
operands from the system command library « SYSLIB (SYSPRO) . if you 
enter a command name as the operand of the KEYWORD command, the system 
first searches USERLIB for the comirand. If the command is not there, 
the system searches its own command library (in SYSLIB). However, some 
system commands are not displayed. You are not able to use some of the 
displayed parameters because either they are not permitted to your pri- 
vilege class or they are dummy parameters used for system processing 
only. Also, some commands (SYNONYM, DEFAULT, and the PCS commands) do 
not use the system" s parameter processing facilities;- the parameters for 
these commands are seen only by the associated cozrmand processing rou- 
tines. When you enter one of these commands as the operand of the KEY- 
WORD command, the system does not display any parameters. (In these 
cases, consult this manual for operand specif ications. ) 

Examples : 

1. The user wants to display all commands and operands from his com- 
mand library: 

User ; keyword 

The system displays the command names and operands from the user's 
USERLIB (SYSPRO data set.) 

2. The user wants to see the operands for the FRAM1S command: 

User ; keyword framis 

System ; FRAMIS, PA RAMI , PARAM2 , PARAM3 

LINE? Command 

This command presents one or more lines from a line data set to SYSOUT. 

I Operation | Operand J 

[LINE? JDSNAME=data set name E (member name) 3 J 

| 1 1, (line number] (first line number, last line number) } f, . . . 1 J | 

DSNAME 

identifies a line data set that must be defined fcy a DDEF command 
within the current task or must be cataloged. 

Specified as : a fully qualified data set name and (optionally) the 
member name of a VPAM data set. When specified, the member name 
must ne enclosed in parentheses, immediately following the data set 
name. 
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line number 

identifies a single line to be displayed from the specified data 
set. 

Specified as ; a one- to seven-digit decimal number. 

System default ; if the "first line number, last line number" 
operand is specified, that range of lines is displayed. Otherwise, 
entire contents of data set are displayed. 

first line number, last line number 

identifies a range of lines to be displayed. 

Specified as ; two one- to seven-digit decimal numbers, separated 
by a comma and enclosed in parentheses. 

System default ; if the "line number" operand is specified, that 
line is displayed; otherwise, the entire contents of the data set 
are displayed. 

Functional Description ; When the user specifies a line number or a 
first line number that does not exist but is within the bounds of the 
data set, the next-higher line is presented. 

If the user specifies a range of line numbers that in some way overlaps 
the boundaries of the data set, all lines in the data set within the 
specified range are presented. If the range overlaps the end of the 
data set, the user is informed when the end of the data set is reached. 

The format of output for line data set is as follows: 

Position Contents 

1-7 line number 

8 blank if line was created from terminal keyboard? 
C if line was created from card reader 

9 text 

The format of output for language processor listing data set is as 
follows : 

Position Contents 

1-130 text (record positions 2 through 131) 

Caution ; In the specification of a range of line numbers, the first 
line number must be less than or equal to the last line number. A maxi- 
mum of 10 line- number ranges may be specified in a single execution of 
the LINE? command. 

Programming Notes ; In conversational mode, the user can terminate the 
presentaticn at any point by pressing his ATTENTION key. 

The user can present lines only from a data set that belongs to him or 
that he is now sharing. He may request the lines in any numerical 
sequence. 

Examples : 

1. The user wants lines 800 through 1100 and line 1400 of data set 
NAM3 to be presented. 

User : line? nam3, (800 ,1100) ,1400 
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The system presents the specified lines. 

2. The user wants lines 900 through 2*400 and lines UUQQ through 16000 
of member AB1 of data set REPLAY to be presented* 

User : line? replay Cafcl) ,(900*2400), (4400,16000) 

The system presents the specified lines*. 

3. The user wants his entire data set, LIST. PLAYER, to be presented. 
User : line? list. player 

The system presents contents of the data set. 

LIST Command 

This command displays a line, or range of lines, or the value of the CLP 
at the user f s terminal or SYSOUT. 

j Operation J Operand J 

JLIST j lNl=£starting position I CLP}} C ,N2=ending position] | 

| |[,CHAR=CC|H|M>] | 



Nl 



N2 



identifies the line, or first of a range of lines, or the value of 
the CLP in the current region to be displayed. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 
CLP - value of current line pointer. 

Note : If the user wants to start the listing at a character posi- 
tion other than the first (position 1) position of data in the 
specified line, he can specify the starting position as an absolute 
one- to four-digit decimal number, enclosed in parentheses and im- 
mediately following the line number. 

System default : when N2 is specified, the value of the CLP is 
assumed. Otherwise, the entire data set is listed, including rec- 
ord keys . 

identifies the last line in a range of lines of the current region 
to be displayed. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region. 

Note : If the user wants to end the listing at any character posi- 
tion other than the last in the specified line, he can specify the 
ending position as an absolute one- to four-digit decimal number, 
enclosed in parentheses and immediately following the line number. 
This ending character is included in the display. 

System default : when Nl is specified, it is the only line listed. 
Otherwise, the entire data set is listed* 
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CHAR 

specifies type of output. 

Specified as : 

C - character. 
H - hex, 
M - mixed. 

System default : C. 

Functional Description s LIST displays entire lines or the specified 
portions of lines. If 1INEN0=Y, region names and line numbers are in- 
cluded. If character positions other than the first or last positions 
are specified for Nl or N2, these positions apply to all lines in the 
specified range. After LIST is executed , the CLP is set to the next 
line number after N2. If N2 is the last line of the data set, the CLP 
is set to N2 plus the value of INCR. The user is then prompted for a 
command. 

The mode of the output data is determined by the CHAR operand in the 
LIST command: 

CHAR=C - all printable characters are displayed in character nota- 
tion; unprintable characters are ignored. 

CHAR=H - the line is displayed in hexadecimal notation. 

CHAR=M - all printable characters are displayed in character nota- 
tion; unprintable characters are displayed in hexadecimal 
notation, and are underlined. 

Caution s A language- processing command (EDIT, PROCDEF, or PLI) must be 
invoked before the command is issued. 

If CHAR=M, and if the user has altered his output translation table, the 
results of the display are unpredictable. 

Examples s The user has previously issued a REGION command to create the 
following data set : 

Users region anyregn 

Sys, User s 0000100 line 1 

0000200 line 2 

0000300 line 3 

1. Assuming the CLP is 400 f the user can issue any of these LIST com- 
mands to display the entire data set. 

User s list 100,300 

or 
list -3, last 

or 
list -5,+l 

(Notes When Nl and N2 exceed the limits of the data set, the low- 
est and highest line numbers in the data set are assumed. Refer to 
"line number specification* in the list of general terms in Section 
2 of Part II.) 

System s ANYREGN0000100 LINE 1 
ANYREGN0000200 LINE 2 
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AtfYRBG»000030G LINE 3 

2. Display positions 2 through 4 of the data ijn lines 200 through 300, 

User : list 200C2) , 300C 4) * 

System : INE 
INE 

3. Display the value of the CLP. 

User : list clp 

Systeir : 0000400 

4. List the first and second characters of data in line 100. 

User : list 100(1) , 100( 2) 

Systeir : LI 



LL Command 

The LL command is used to define the maximum length of any line to be 
written to the SYSOUT. 

| Operation | Operand | 

l . 1 — 1 

ILL |LGH=,*TRUNCATE=,*RESET= | 

LGH 

decimal number, 1 or greater, defining the 1 jngth of the ouput line 

which can be written to the SYSOUT. Any lir * greater in length, 

will be continued on the next line. 

Specified as : A decimal number from 1 to maximum physical line 
length for SYSOUT. 

System default : 
2741 — 132 
Teletype — 72 
3215/1052-7 — 132 

♦TRUNCATE 

self -defining keyword. If TRUNCATE^Y is specified, then any output 
line greater than the specified , LGH i value will not be continued 
on the next line. Any text in excess of the above LGH value will 
be deleted and not displayed. 

Specified as : 

Y = truncate output. 

N = do not truncate output. 

Systeir Default : N 

* KESET 

(see specification below) 

Specified as : 

Y = restore the original system default length cind turn off trunc- 

ate, if on. 
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N = nc effect. 

System Default ? N 

Functional Description : The LL cowroand can be used to lengthen and 
shorten the messages and data displayed by the system. On long lines, 
the user can also have the system delete any data over a specified 
length instead of writing continuation lines on the terminal. 

The system defines a line as all output from one write request and not 
containing either a ■Newline" or a 'Carriage Return, Suppress* control 
character . 

If the data contains a ■Newline* control character, then the system will 
treat each 'Newline 1 character as the end of one line of output and will 
write the d*ta that follows on the next line. 

LNK Command 

This command invokes the linkage editor to link-edit one or more object 
modules . 



j Operation [ Operand j 

I LNK |NAME=module name[,STCRED=(Y|N}] | 

| jl,LIB=data definition name of library] | 

| | l,VERID=version identification] £ f T SD=CY| N} H , PMDLIST={ Y | N} ] j 

j | C,LISTDS={Y1N} H,LINCR= (first line number, increment) ] | 

NAME 

identifies the object module to be created. If the source program, 
consisting of the control statements that direct the linkage edi- 
tor, is prestored, the user must have naired it SOURCE. name. 

If it is not prestored, the system automatically prefixes SOURCE, 
to the source program module name. The listing data set will auto- 
matically be named LIST. name (0) . 

Specified as : the part of the source program module name that fol- 
lows SOURCE. if the source program is prestored. Otherwise, any 
character string of from one to eight alphameric characters, the 
first of which must be alphabetic, can be specified. The object 
module name must not be identical to other external entry points in 
that library. 

STORED 

specifies whether or not the source program is prestored. 

Specified as : 

Y - source program is prestored. 

N - source program is not prestored. 



LIB 



System default : N. 

identifies the library in which the new object module is to be in- 
cluded. The user must either choose a library that does not con- 
tain any control section or entry point names identical to those in 
the output module or must rename the control section and entry 
point names in the output module during linkage editing. 
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Specified as : the data definition name of the library. 

System default : the last-mentioned library is assumed (that is* 

the user library or a job library)* 

VERID 

specifies the version identification to be assigned to the object 
program* 

Specified as ; from one to eight alphameric characters. 

System default : the listing and the created modules are 
time-stamped, 

ISD 

specifies whether an internal symbol dictionary USD) is to be 
produced . 

Specified as t 

Y - ISD is produced* 

N - ISD is not produced. 

System default : Y. 

Note : An ISD can be produced only if the source module contains an 
ISD. 

PMDLIST 

specifies whether a program module dictionary (PMD) listing is to 

be produced* 



Specified as : 

Y - PMD listing is produced. 

N - PMD listing is not produced. 

System default ; N* 



LISTDS 

determines whether the user-requested listings from the language 
processors are to be placed in a list data set or placed directly 
on SYSOUT. 

Specified as : 

Y - place in list data set* 
N - listings to SYSQOT* 

System default : ¥• 

LINCR 

specifies the line number to be assigned to the first line of the 

source language data set and the increment to be applied to suc- 
ceeding line numbers* 

Specified as t two three-- to seven-digit decimal numbers separated 

by a comma and enclosed in parentheses* The last two digits in 
each number must be zeros • 

System default : (100,100). 
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Note : This operand is ignored when STGRED=Y. 



Functional Description : See "Language Processing," in Section 3 of Part 
II. 

Caution : The output module from the linkage editor cannot be placed in 
the library specified in the input operand if that library contains 
modules whose control section or entry point names are identical to con- 
trol section or entry point names in the output module. 

The command is canceled if invalid operands are entered. 

Example : The user wants to link-edit modules into an object module 
named ABCD. Conversationally, he enters all LNK operands and linkage- 
editor control statements from the terminal. The linkage editor takes 
default values for the remaining operands, which designate a starting 
line number and increment of 100, the module to be placed in the library 
currently at the top of the user's program library list, the listing to 
be time-stamped, an ISD, and no PMD listing. 

User : Ink abcd f n 

LOAD Command 

This command loads an object module, and all other object modules to 
which that module implicitly refers, into virtual storage, but does not 
initiate program execution. 

r ., . . , 

| Operation | Operand J 

j. 4 — . 4 

|LOAD 1 [NAME=entry point name] | 



NAME 

identifies the module to be loaded. 

Specified as : a module name or external entry point without 
offset. 

System default : the last module referenced by the system is 
loaded. 

Functional Description : When the LOAD command is executed, the system 
searches the libraries on the task's current program library list to 
find the specified object module and loads the module. If the module is 
already loaded, no action is taken. If that module is not implicitly 
linked to other modules, no further loading takes place. If that module 
is implicitly linked to one or more other modules, those modules, and 
any other modules to which they are implicitly linked, are loaded by a 
similar search-and-allocate procedure. When a module to be loaded can- 
not be found, a diagnostic message is issued. 

When the LOAD command is issued with no operands, the user's module last 
referenced by one of the following commands is loaded: PLI, ASM, INK, 
FTN, LOAD, UNLOAD, CALL with a module name specified, or an implicit 
call to a module. 

In the case of FORTRAN-written programs, a LOAD command specifying the 
main Cor root) program causes the entire program to be loaded, because 
all FORTRAN subprogram modules are implicitly linked to the main module. 
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Assembler -writ ten modules can be implicitly or explicitly linked to oth- 
er modules. Explicitly linked object modules Cfor example, explicitly 
called or loaded subroutines of a program's main module) are not loaded 
when a LOAD command is executed; they are loaded one at a time during 
execution as each explicit linkage is processed. 

Caution : A FORTRAN COMMON block program must be loaded by module name, 
not COMMON block name, because only the module name can be found by the 
dynamic loader. 

Example : Load module ABC, and all modules to which it implicitly 
refers . 

User : load abc 

The system loads ABC and all implicitly linked modules into virtual 
storage. 

LOCATE Command 

This command searches a region for a specified character string. LOCATE 
does not alter the referenced data. 



| Operation | Operand j 

^ + _ _ f 

I LOCATE | tNl=starting position] £ ,N2=ending position! | 

| | [,STRING=character string] J 



Nl 
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identifies a line, or the first of a series of lines, in the cur- 
rent region to be searched for STRING. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST — last line in the current region. 

Note : If the user wants to start the search at a character posi- 
tion other than the first character of the record - s key (position 
K) , he can specify the starting position enclosed in parentheses, 
and immediately following the line number. The system normally 
begins the search with position K (the first character of the key); 
the first character of data is at position 1 and is specified as 
CD following the line number. If the user wants to get to some 
other data character, he can specify its position as an absolute 
one- to four-digit decimal number. Any character between the first 
character of the key and the first data character can be referred 
to by a negative value enclosed in the parentheses. For exairple, 
the second character in the key for line 0000100 of a line data set 
is referred to as 100 (-6). 

System default : when N2 is specified, the value of the CLP is 
assumed. Otherwise, the entire data set or region is searched. 



identifies the last of a series of lines to be searched for STRING. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 
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LAST — last line in the current region. 

Note: If the user wants to end the search at any character posi- 
tion other than the last in the specified line, he can specify the 
ending position as an absolute one- to four-digit decimal number, 
enclosed in parentheses and immediately following the line number. 
The ending character is included the command processing. 

System default ; when Nl is specif ied, it is the only line 
searched. Otherwise, the entire data set or region is searched. 

STRING 

designates the character string that is to be searched for (that 
is, the string is the "search argument")., Strings that are con- 
tinued in the next line are not recognized. 

Specified as : a normal or quoted string. 

System default : CLP is set to the next line in the current data 
set or region. If N2 is the last line, CLP is set to N2 plus the 
value of INCR. 

Functional Description : LOCATE searches the specified lines for the 
string (this search includes the region name and line number). When the 
string is found, the first line containing it is displayed and the CLP 
is set to that line number. When the string is not found, or LOCATE is 
issued without operands, the CLP is set to the line following the last 
line in the range specified (N2). If N2 is the last line, CLP is set to 
N2 plus the value of INCR. 

The user is then prompted for a command. 

Caution : A language-processing conirand (EDIT, PROCCEF, or PLI) must be 
invoked before the command is issued. 

Examples : 

1. The user wants to search the current region for the string ABC. 
( Note : A blank separates the last letter in LOCATE and the comma.) 

User: locate ,,'abc 1 

System : 0000200 ABC WILL APPEAR IN SEVERAL LINES 

2. The user wants to search lines 200 through 500. 

User : locate 200, 500, ate 

System : 0000200 ABC WILL APPEAR IN SEVERAL LINES 

3. The user restricts the search in example 2 to character positions 1 
through 26 in lines 200 through 500. The system displays the phys- 
ical line in which ABC is first found and prompts for a command. 
The LOCATE command the user enters is: 

User : locate 200 (3) ,500 (26) ,abc 

LOGOFF Command 

This command notifies the system that the user wants to end his task. 
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r t ■ 1 

[Operation | Operand | 

| LOGOFF | 1 

Note: There are no operands* 

Functional Description : LOGOFF reiroves the user's task from the system 
and releases any data definitions (and I/O devices) used by the task. 

When LOGOFF is given in a non conversational task, an automatic PRINT is 
issued by the system for the SYSOUT data set. 

Programming Notes : If no LOGOFF appears at the end of a nonconversa- 
tional task, a diagnostic message is issued, and the task is terminated; 
SYSOUT will be printed. 

LOGON Command 

This conmand validates the user to the system and creates the environ- 
ment in which he may operate. 



j Oper ati on j Operands j 

h + f 

(LOGON (user identif icationC, password] I , addressing] t, charge number] | 
| j (, control section packing] C, maximum auxiliary storage! | 

j | C, prist ineJl, user IVM code] j 

Notes : The LOGON command name must always be entered and operands roust 
be entered in positional notation. Trailing commas need not be entered. 
If one or more operands is omitted, and a later operand is used, you 
must enter a comma for each omitted operand. 

user identification 

identifies the user to the system. 

Specified as : the user identification assigned to the user when he 
was joined to the system. 

password 

specifies the user's assigned password. 

Specified as : the password assigned to the user when he was joined 
to the system. 

System default : in conversational mode, none, if the user has been 
assigned a password. In nonconversational mode, password is op- 
tional and will not be verified. 

addressing 

specifies the system addressing. 

Specified as : 2H- or 32-bit addressing. 

System default : present system addressing. 

charge number 

specifies the charge number to be used if the installation has task 
accounting. This does not need to be the charge number assigned 
when the user was joined to the system. 

Specified as : from one to eight alphameric characters. 
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System default : the charge number assigned when the user was 
joined to the system. 

control section packing 

specifies the type of control* section packing to be provided by the 
dynamic loader. 

Specified as s 

A - all control sections will be packed. 

P - only prototype control sections CPSECTs) will be packed. 

- only control sections having neither public nor prototype 
attributes will be packed. 

X - all control sections except prototype control sections will be 
packed. 

N - no control sections will be packed. 

System default : N is assumed. 

maximum auxiliary storage 

specifies the expected maximum number of auxiliary storage pages 
required in the session. 

Specified as : from one to five decimal digits. 

System default : the lesser of either the system default establish- 
ed at system generation or the limit assigned to the user when he 
was joined. 

pristine 

indicates whether the user wants access to his previously defined 
defaults, synonyms , and PROCDEFs or all options or his USERLIB. 

Specified as : 

P - the user will be able to use only system- specified defaults, 
synonyms, or PROCDEFs; he can create synonyms, defaults, and 
PROCDEFs during this task, but he cannot add them to his pro- 
file for use in a subsequent task. 

X - the user will be able to use only system- specified synonyms, 
defaults, and PROCDEFs: he cannot access anything in bis 
USERLIB; he cannot create synonyms, defaults, or PROCDEFs, 
unless he first defines USERLIB. 

System default : the user will have all of his previously specified 
defaults, synonyms, and PROCDEFs available to him, as well as all 
other members of his USERLIB. 

user IVM code 

indicates whether a user wishes to modify the contents of his user 
IVM. 

Specified as : 

Y - the user with U authority can modify the contents of his user 

IVM with a new set of modules. 
N - the user cannot modify his user IVM. 

System def au It : N. 
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Functional Description : The credentials the user enters (user identifi- 
cation and any of the operands required by your installation) are com- 
pared with the authorization data that identify him to the system. When 
any or all are not valid , the conversational user is prompted to enter 
all operands again. If the system responds with a question mark (?), 
the LOGON command was not recognized j the entire command must be reen- 
tered. When these credentials are valid, the task continues. LOGON 
calls Z LOGON before control is given to the user. 

Programming Notes : LOGON must precede any commands the user intends to 
issue. When the user turns on his terminal and dials the system, the 
system waits for the user to log on. 

If the user has never been authorized to use the system, or the user's 
permit to use the system has been withdrawn Che has been •quit"), he 
will be advised of this via a message, and his LOGON will be terminated. 

Examples : 

1. FRANKDOE dials up at his terminal? the system assumes that he wants 
to begin a conversational task. 

The system unlocks the terminal. 

User : logon f rank doe ,mars7 

The system acknowledges that user has successfully logged on. 

2. A nonconversational task is being started; the first prestored com- 
mand in the nonconversational SYSIN data set is: 

LOGON FRANKDOE 

LTDS (List TAPE Datasets) Command 

This command will list the dataset name, file sequence number, and vol- 
ume sequence number of all datasets on a tape created by the VT command. 



i T" 



| Operation [ (No Operands) 



| LTDS 1 - I 

Functional Description : The LTDS command can be used to list all data- 
sets on a tape created by the VT command. The tape must be previously 
defined by a ddef command with ddname of DDTVIN, and must be an unla- 
belled 9 track tape. Processing of datasets will begin with the file 
sequence number specified in the label operand of the ddef command and 
continue until EOT is detected. 

Example : The user wants to list all datasets on tape TESTXX starting at 
file 2. 

User : DDEF DDTVIN, PS, TESTDSN,VOLUME= ( , TESTXX) ,UNIT=(TA, 9) ,- 
LABEL= ( 2 , NL) ,DISP=QLD 
LTDS 

System : VSN TESTXX, FSQ 0002. USERID**. DSFILE2 

MCA ST Command 

This command alters the control characters in the user's Profile 
Chara<&er Switch Table (see Appendix C). 
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| Operation | Operand | 

I i — 1 

JNCAST J £EOB=end of block character 1 [ t CONT=continuation character! 

| l,CLP=break character] . 

| [jTRP^transient statement prefix character] 

I [ r RCG=concatenation character] 

| [,SSM=system scope raaskH f USM=user scope mask] 

| £,KC=keyboard/card reader character] 

j [ # RS=carriage return suppression character] 

| [ # CP=coramand prompt string] 

L J . , . J 

Note ; All hexadecimal numbers must be enclosed in apostrophes and pre- 
ceded by an X (as in X , 62 , K 

Since no system-supplied default values exist for these operands, we 
list the settings as they appear in the system- supplied version of the 
user profile. 

EOB 

specifies the end-of -block character. 

Specified as ; X f 26 f . 

System default ; X^'. 

CONT 

specifies the command system continuation character. 

Specified as ; any single character or any hexadecimal number in 
the range X 9 QQ* to X'FF' . 

System default ; hyphen (X*60°). 

specifies the command system break character. 

Specified as ; any single character or any hexadecimal number in 
the range X'OO" to X^F'. 

System default ; underscore (X 8 6D*>. 

specifies the transient statement prefix character. 

Specified as ; any single character or any hexadecimal number in 
the range X'OO 11 to X'FF'. 

Systeir default ; vertical stroke (x f **F B ). 

specifies the concatenation character. 

Specified as ; any single character or any hexadecimal number in 
the range X - 00* to X'FF". 

System default ; colon iX'lA 9 ). 

specifies the system scope mask. 

Specified as ; any single character or any hexadecimal number in 
the range X - 00° to X'FF 1 . 
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CLP 



TOP 



RCC 



SSM 



USM 



KC 



RS 



CP 



System default : HL*2S*. 

specifies the user scope mask. 

Specified as : any single character or any hexadecimal number in 
the range X*00* to X f FF f . 

System default : X*23* . 

specifies the SYSIN keyboard/card reader character. 

Specified as : the letter K, which tells the system to get input 
from the terminal keyboard; or the letter F, which tells the system 
to use the value of the SYSIN implicit operand. If SYSIN=K, input 
is from the keyboard? if SYSIN=€, input is from the card reader. 

System default : E. 

specifies the carriage return suppression character. 

Specified as : any single character or any hexadecimal number in 
the range X'OO* to X'FF". 

System default : colon (X^A 1 ). 
specifies the command prompt string. 



Specified as : a string of from one to eight characters, or a hexa- 
decimal number in the range X'OO' to X'FFFFFFFFFFFFFFFF' (16 hexa- 
decimal digits). 

System default : an underscore, backspace, and a carriage return 
suppression character (X^DISTA 1 ). 

Functional Description : The MCAST command replaces control characters 
in the user's task profile with the control characters specified as com- 
mand operands. If no operands are entered, only those control charac- 
ters are changed for which the user has defined default values (for ex- 
ample, DEFAULT CP=SIR) . 

To make these changes permanent, the user must follow the MCAST command 
with a PROFILE command in the same task. 

Note : All of the control characters for the MCAST command are explained 
in Appendix C. Any unprintable hexadecimal values Cfor example, X , 25*) 
are ignored when included in the command prompt string. 

Caution : Do not change the EOB character from the system-supplied value 
X - 26'. 

Examples : 

1. The user wants to change his command prompt string to •SIR?", and 
his break character to the at sign (d): 

User : mcast cp=sir?,clp=a 
System : SIR? 

2. The user wants to change the command prompt string to YES, and the 
continuation character to an asterisk C*>j he warts to make these 
changes permanent in his user profiles 
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User ; mcast cp=y es , cont=* 

Sys,User ; YES profile 

3. The user wants to change his coxunarid prompt string to the word GO, 
underscored, and followed by a question mark (GO?). Since the 
back- space character Csee Appendix C> is a hexadecimal number 
(X , 16 , > with no printable value, the entire prompt string must be 
coded as a hexadecimal number. 

User : mcast cp^x^Tdeieieededef ■ 

System ; GO ? 

Note that; X , C7 i is a G; X f D6 f is an 0; lk*\b* is a backspace? 
X'SD* is an underscore? and x*6f* is a question mark. 

MCA STAB CQffmand 

This command alters the translation tables in the user's task profile by 
replacing one or both with the replacement tables located by the labels 
SYSTRIN (for input) and SYSTROUT (for output). 



I T ~ ~ ' " 1 

| Operation | Operand \ 

j. ^ . _„„___„ — ___ , 

JMCASTAB j [INTRAN={N|YH [ ,CUTRAN={N |Y> ] | 

INTRAN 

specifies whether to replace the current input translation table 
with the replacement table (SYSTRIN) or with the version that was 
current when the user logged on. 

Specified as ; 

Y - replace with SYSTRIN. 

N - replace with version current at LOGON. 

System default : N. 

OUTRAN 

specifies whether to replace the output translation table with the 
replacement copy in SYSTROUT, or with the version that was current 
when the user logged on. 

Specified as : 

Y - replace with SYSTROUT. 

N - replace with version current at LOGON. 

System default : N. 

Functional Description : WCASTAB replaces the input and output transla- 
tion tables with the replacement versions located by the labels SYSTRIN 
(for input) and SYSTROUT (for output). The user can alter the replace- 
ment tables with the SET command? he can effect replacement with 
MCAST AB. 

To make a change in the inpur translation table, the user alters the 
replacement version: 

set systrin. (x , cl f ,l)=x , c2* 

He specifies the location in the translation table of the character or 
function code he wants to change (x'Cl - in this case) ; then he sets the 
location to the new value (X , C2 - in this case). In this example, the 
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user has set the uppercase "A" to the value of "B", (Notice that the 
values are not swapped; both "A" and "B" have the value of "B".) Now, 
to make the change, the user issues the MCASTAB command, which replaces 
the current translation table with the altered version at SYSTRIN: 

mcastab intran=y 

The user can make the change permanent with the PROFILE command. This 
is, however, not recommended until the user has had some experience with 
changing the tables. 

To reverse the changes, the user issues the MCASTAB command with the 
operand set to N; this replaces the current table Cnow it is SYSTRIN) 
with the version that was current when the user logged on. But, since 
the user lost the use of the "A" in the above example, he must log off 
and log on again to get to the original table since he is unable to 
enter MCASTAB successfully. The user should swap values wherever possi- 
ble to retain the use of the entire character set. Had the user swapped 
the "A" and the "B* in the above example, he could then reverse the 
changes by issuing: 

mcastab intrBn=n 

Caution : Be careful not to lose the use of any important character by 
replacing it without choosing an alternate. 

Programming Notes : At LOGON, SYSTRIN and SYSTROUT always reflect the 
system-supplied translation tables (as shown in Appendix C) . Whenever 
the user logs on, he can issue 

mcastab intran=y,outran=y 

to replace his translation tables with the system- supplied versions. 

The user can also use the MCASTAB command to reverse any translation ta- 
ble changes made with the MCAST macro instruction. 

Examples : 

1. The user wants to swap the characters "A" and "B" in the input 
table: 

Sys,User : set systrin. (x , cl» ,l)=x , c2 i 
Sys, User : set systrin. (x i c2 l ,1) ^'cl* 
Sys,User : jncastab intran=y 

2. Now, the user wants to reverse the changes and get back to the 
system-supplied translation table: 

Sys,User : mcastab intran=n 

3. The user wants to convert the pound sign (#> to a backspace 
character for input as data; he wants to use the asterisk as the 
cancel character in place of of the pound signs 

Sys, User s set systrin. (x" 7b - f l)*x , 16 f (translate # to a backspace 

character) 
Sys, User ; set systrin. (x - 17b 1 ,l)=X i 00* (remove the cancel function 

code (x - 0c - ) from the #) 
Sys, User s set systrin. (x'ISc 1 ^^x^Oc" (assign the cancel code to 

the asterisk) 
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Sy3,User : mcastab intran^y (effect the replacement) 

MODIFY Command 

This command inserts, deletes, replaces, or reviews lines of a VISAM 
data set or a VISAM member of a VPAM data set, or creates a VISAM data 
set or member. 

| Operation | Operand j 

(MODIFY | SETNAME=data set name! ,CONF=R] £ ,LRECL= re cord length, | 
| |KEYLEN=key length,RKP=key displacement, RECFM=C V | F> 1 J 

| I [,FTN={Y|NH I 

SETNAME 

identifies a VISAM data set. If the data set already exists, it 
must have been defined previously by a DDEF command within the cur- 
rent task or must have been cataloged; the data set to be created 
by MODIFY need not be defined or cataloged. If the VISAM data set 
has hexadecimal keys (rather than the usual EBCDIC key or line num- 
ber) , the data portion of each record in the data set must also be 
hexadecimal. 

Specified as : a fully qualified data set name and (optionally) a 
member of a VPAM data set. When specified, the member name is en- 
closed in parentheses and immediately follows the VPAM data set 
name. 

CONF 

specifies that review of modifications is requested; each line of 
the data set that was changed is presented to the user in its orig- 
inal form. The review option cannot be used on a line that con- 
tains hexadecimal data. 

Specified as : R. 

System default : no review of records. 

Note: The next four operands must all be explicitly entered as operands 
of MODIFY (or by the DEFAULT command) , or all be omitted. When they are 
specif iea, MODIFY assumes that the data set being specified is not a 
line data set. 

LRECL 

designates the length, in bytes, of each fixed-length logical 
record. 

Specified as : a decimal number. The maximum length for VISAM is 
4000 bytes. 

System default : 132. 

KEYLEN 

designates the length, in bytes, of the key associated with each 
physical record. When a record is read or written, the number of 
bytes transmitted equals the key length plus the record length. 

Specified as : a decimal number. The maximum key length is 244 

bytes . 

System default : 7. 
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RKP 

specifies the displacement of the key field from the first byte of 
each logical record. 

Specified as : a decimal number. The maximum key displacement is 
4000 bytes. 

System default : 

4 is assumed if RECFM=V. 
is assumed if RECFM=F. 

RECFM 

indicates the format of the data set records. 

Specified as s 

V - variable- length records. 
F - fixed-length records. 

System default s V. 

Note s When the LRECL f KEYLEN, RKP f and RECFM parameters are specified, 
MODIFY assumes that the data set is not a line data set. 

FTN 

specifies that the MODIFY command is being executed to update an 
existing FORTRAN source data set (via card input) that was created 
using the FTN option of the DATA command or the DATASET card. When 
this option is specified, it is assumed that the card input is 
punched in keyboard format and the input is processed accordingly. 

Specified as s 

Y - this function is required. 
N - the function is not wanted. 

System default : N. 

Functional Description s If LINENO=Y, the system asks the user for modi- 
fications by issuing a pound sign (#) and returning the carriage to the 
margin. Otherwise, there is no prompting, and the user can enter modi- 
fications after each carriage return. The user indicates his modifica- 
tions by following these conventions s 

1. Insert or replace a record. 

key, data 

key 

the key of the record to be inserted or replaced; for a line 
data set, this is the line number. 

Specified as ; from one to seven digits. 

data 

the new data of the replacement or insertion record; a maxi- 
mum of 120 characters is permitted in a line data set. 

Note s Modifications to a VISAM data set with hexadecimal keys and data 
must be entered as keydata. Key and data must be specified as one hexa- 
decimal string Cfor example, X% keydata). 

2. Delete a record or a range of records. 
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D, key I, last key] 

key 

the key of a single record to be deleted or the first key of 
a range of records to be deleted* 

last key 

the final key of a range of records to be deleted. 

3. Review a record or range of records (whether or not the review 
option is specified) without taking any other action with the 
records. 

R, key [, last key] 

key 

the key of a single record to be reviewed or the first key of 
a range of records for review. 

last key 

the final key of a range of records to be reviewed. 

The user indicates that he has completed his modifications by entering 
%E or by entering as the first character of a line a single break 
character followed by a command. 

Note ; The complete key must be given for a VIS&M data set that is not a 
line data set. 

When the review option is requested, the line deleted or replaced is 
presented after each modification. 

If the ATTENTION key is pressed while the MODIFY coirmand is in opera- 
tion, it does not affect the modifications that have been entered up to 
the moment of interruption. Those modifications are made in the user's 
data set. The MODIFY command operation is terminated f however, and the 
system requests the user's next command. If desired, he may then enter 
a new MODIFY command and continue making modifications to his data set. 

The MODIFY command accepts strings of EBCDIC representations of hexadec- 
imal digits, converts them into machine representations of hexadecimal 
digits, and inserts them in a data set as directed by the user. 

The EBCDIC string representing the hexadecimal data is entered in the 
format: 

X%EBCDIC string — Cany non- EBCDIC character ends hexadecimal data) 

When the system encounters the X and the immediately following %, it 
enters hexadecimal mode. It then assumes that an EBCDIC string follows 
and proceeds to convert each two EECDIC characters in the string to one 
hexadecimal character, until the first nonhexadecimal character is 
encountered. 

In performing the required conversion, the system checks to ensure that 
each input character represents a valid hexadecimal digit; that there is 
an even number of input characters in the string i and that there are no 
incomplete inserts in any input line. (More than one insert may be made 
in any input line; however, one insert may not be entered across input 
lines. ) 

When characters not in alphameric format are displayed at the terminal 
(REVIEW option) , they will be lost in the transmission. There is no 
REVIEW option for the HEX option. 
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Cautions The DATA and MODIFY command names may be included in the rec- 
ords entered under a MODIFY command, but multiple break characters roust 
be entered to end the DATA or MODIFY command in the data set. The first 
%E or single break character is interpreted as the end-of -input record 
for the current MODIFY command. 

Programming Notes ; To save processing time, the user should enter his 
modifications in sequence, starting with the lowest line number. 

By making a series of insertions, the issuer can use the MODIFY command 
to create a new VISAM data set. 

When a data set that is to serve as SYSIN is being built frcro records 
entered via the card reader, the maximum record length must be 80 char- 
acters. In this case, continuation conventions must agree with those 
specified for card input Csee Part II, Section 1, under "Entering Com- 
mand Statements" in conversational mode). 

The user may create a VISAM data set, other than a line data set, that 
includes his own keys. If so, he must give the key position and length 
within the record. These key values may then be used to insert, 
replace, delete, or review lines while the data set is being built. For 
example, if the user enters: 

AB14000 link, upper arm 

he must have previously specified, in the MODIFY command, KEYLEN=5, 
i*KP=3, fixed-length records, and the record length. Thus, 14000 is the 
indexing key to his record. 

When creating a record that is longer than one line, the user must enter 
a hyphen at the end of the line to signal that the next line is a con- 
tinuation. (If the two lines should not be run together, use a blank 
space before the hyphen.) The hyphen does not become part of the rec- 
ord; the continuation line is not prefixed with a key. 

Note : MODIFY, although much less flexible than the text-editing com- 
mands, does permit use of a VISAM key anywhere in the record. The text 
editor works only with line and region data sets. 

Examples : 

1. The user wants to delete lines 107 through 195 and replace line 107 
in a line data set ASET. Be view is not requested. CLIMEN=I.) 

User : modify source, aset 

System : ENTER MODIFICATIONS 
Sys,l)ser : # 

d,107,195 

# 

107,x=a**2.0 

# 

108,write(2,5)x 

# 

109, end 

# 

__ftn aset,y 

To end modifications, the user enters a break character and a com- 
mand after the system prints out the pound sign and returns the 
carriage. 

2. The user wants to delete line 4900 and insert a new line at line 
number 5450 in his partitioned line data set AB12.CA(V8). He re- 
quests review. 
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User : modify afcl2. ca (v8) ,r 

System : ENTER MODIFICATIONS 
Sys,User : # 

d,4900 
System : 00004900X=(X=C) (prints out the deleted line for review) 
Sys,User : # 

5450,j=j4-l 
System : 00005450 j=j+l (prints out the inserted line for review) 
Sys, User s # 

%e 
System : _ 

3. The user wants to replace line 12300 and insert a new line at 14350 
in his data set DAT.C. He requests review. 

User : modify dat.c,r 

System : ENTER MODIFICATIONS 
Sys # User : # 

12300, somer=fc/c 
System : 12300SOMER=B-C (reviews old line) 
Sys, User : # 

14350, i=12 
System : 143501=12 (prints out the inserted line for review) 
Sys,User : # 

%e 
System : _ 

4. The user wants to create a new VISAM data set named QUIK4. Records 
are to be 80 bytes and fixed- length? the key is a five-digit part 
number, displaced two characters from the start of the record. 
Review is not wanted. 

User : modify quik4,lrecl=80,keylen=5 ,rkp=3,recfm=f 

System : PROCEEDING: DATA SET OR MEMEER WILL BE CREATED ENTER 

MODIFICATIONS 
Sys, User : # 

ab00411 spring, retaining 

# 

ab00412 spring, guide 

# 

ab00413 clip f retaining spring 

# 

ab00414 widget, silverplated 

# 

%e 
System : _ 

5. The user wants to create a new line data set named DISSMAL. Review 
is not wanted. (LIMEN=I. ) 

User : modify dissraal 

System : PROCEEDING: DATA SET OR MEMBER **ILL BE CREATED 
ENTER MODIFICATIONS 

Sys, User : # 

100, aid dc f - 875' 

# 

200,sroel dc f f 5280 f 

# 

300, dc f , 6793 i 

# 

400, dc f w 551 9 

# 

%e 
System : __ 
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NUMBER Command 

This command renumbers a line or a range of lines within the current 
region. 



i 1 ■ ! -i 

{Operation | Operand J 

H- H i 

JNUMBER | [Nl=starting line] t,N2=ending 1 ine H f NBA SE =base number] | 

I | [,INCR= increment] | 

l 1 j 

Nl 

identifies the line or first of a range of lines to be renumbered. 

Specified as ; a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region or data set. 

System Default : Nl is set to the value of CLP. If N2 is defaulted, 
Nl is set to the first line of the current region or data set. 

identifies the last of a range of lines to be renumbered. 

Specified as : a one- to seven-digit decimal line number that may 
be absolute or relative. 

LAST - last line in the current region or data set. 

System default : Nl is assumed if it was specified. Otherwise, N2 
is set to last line in the region or data set. 

NBASE 

indicates the number from which the renumbering is to be 

incremented. 

Specified as : from one to seven decimal digits. *Kie value must 
not be less than Nl. 

System default : The value of Nl or its default value. 

INCR 

specifies the increment between the lines to be renumbered. 

Specified as : from one to seven decimal digits. If the increment 
causes renumbering to overlap the number of the line following N2, 
the increment is computed as though it were defaulted, and the user 
is prompted with a message that the increment has been furnished by 
the system. 

System default : the difference between the base and the line num- 
ber following N2 is divided by the number of lines to be renum- 
bered. The increment is then determined in this manner: 

If the quotient is: the increment is: 

100 or greater 100 

50-99 50 

20-1*9 20 

10-19 10 

5-9 5 

2-*t 2 

1 1 
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Note : If all operands are defaulted, these values are assumed: 

Nl=First line of region 

N2=LAST 

NBASE=100 

INCR=100 

Functional Description : Renumbering does not change the sequence of 
lines or affect the region name prefixed to line numbers. 

When all operands are defaulted, the entire data set or region is 
renumbered. 

Upon completion of this command, the CLP is positioned to N2 plus the 
value of INCR or to the line number after N2, whichever is less. 

If the NBASE is less than Nl, a diagnostic message is issued. If the 
value of INCR causes the renumbering to overlap the line number speci- 
fied in N2, the system computes the increment as if it were defaulted 
and notifies the user by a message. Renumbering with the new increment 
then occurs. 

Caution : A language-processing conmand (EDIT, PROCDEF, or PLI) must be 
invoked before the command is entered. 

If the NUMBER command is not allowed to run to completion, the user may 
lose data. 

Examples : 

1. number 103,290 



Original Sequence 
XYZ0000100 
XYZ0000103 
XYZ0000107 
XYZ0000108 
XYZ0000109 
XYZ0000111 
XYZ0000114 
XYZ0000116 
XYZ0000169 
XYZ0000290 
XYZ0000400 



Resulting Sequence 
XYZ0000100 
XYZ0000103 
XYZ0000123 
XYZ0000143 
XYZ0000163 
XYZ0000183 
XYZ0000203 
XYZ0000223 
XYZ0000243 
XYZ0000263 
XYZ000OHOO 



Since NBASE is defaulted, it is assumed to be 103 CN1). The dif- 
ference between the base and the line following N2 (400) is 297, 
which is divided by the number of lines. As the quotient is 33 
C297 divided by 9 = 33), the increment is 20. 



number 17, ,22 

Original Sequence 
AR0000010 
AR0000017 
AR0000035 

number 912,1000 

Original Sequence 
AR0000900 
AR0000912 
AR0000915 
AR0000916 
AR0000917 



Resulting Sequence 
AR0000010 
AR0000022 
AR0000035 



Resulting Sequence 
AR0000900 
AR0000912 
AR0000932 
AR0000952 
AR0000972 



Part III: Oommand Descriptions 203 



AR0000918 AR0000992 

AR0001000 AR0001012 

AR0001050 AR0001050 



number 5,12,nbase=6,incr=13 



Original Sequence Resulting Sequence 
M0000001 M0000001 

M0000005 M0000006 

M0000008 M0000019 

M0000009 M0000032 

M0000100 M0000100 



5. number 100,200 



Original Sequence Resulting Sequence 
100 100 

125 120 

150 140 

200 160 

250 250 



ODC Command 

This command converts an OS text deck into a TSS object module and stows 
the module into the highest jofclib. 



j Operation j Operand j 

1- ~H H 

JODC IODCMOD=module C f CDCPLI=YJN] [ ,ODCERASE=Y(N) j 

l J . j 

module 

the name of a test dataset which is a generation data group dataset 
of the form LOAD.module(O) 

ODCPLI 

tells the command whether the text deck was produced by the PL/I 
Optimizer. This operand can be defaulted if deck was produced by 
COBOL , FTHH or HASM. 

ODCERASE 

signifies whether the command should erase the LOAD .module CO) data- 
set following completion of the conversion. 

Note ; When you convert a PL/I module, ODC checks the value of PLIPACK, 
in your user profile. If PLIPACK=N, one or more pages are assignedto 
each CSECT. If PLIPACK=Y, CSECTs are packed. Packing consists of com- 
bining CSECTs into contiguous storage, retaining doubleword boundaries 
for CSECT origins. The name of the initialization CSECT is retained as 
a CSECT name, and other CSECT names are transformed into entry- point 
names. In effect, the CSECTs are combined into a single CSECT. If 
PLIPACK=P, ODC packs all CSECTs except static external CSECTs that have 
the TSS COMMON attribute, or are more then 4096 bytes long. This is 
generally more efficient than PLIPACK=Y, since COMMON CSECTs are null 
CSECTs and they are mapped onto external storage only if they are 
packed. The IBM- supplied default for PLIPACK is P. 

204 



OSDD? Command 



This command will list to SYSOOT all filedeffed datasets, indicating OS 
ddname and TSS data set name. 



i 1 ■- ■ 7 

I Operation | Operand I 

k +_ j 

| OSDD? | I 

Note : If a TSS dataset is datadef fed, but not filedeffed, it will not 
appear in this list, 

QSRUN Command 

This command allows the user to execute the output of a program product 
under TSS, using the Program Product Language Interface (PPLI). 



| oper at ion j Oper and j 

j. \ f 

JOSRUN (module [, 'parm* ] j 

i J J 

module 

specifies the name of the program to be run using the PPLI. It 
must have been assembled/ compiled using the PPLI, 

parm 

this represents a value that will be passed to the program being 
run. Note that to pass an argument to a PL/I Optimizing Compiler 
main procedure the argument must be preceded by a slash. 

Example ; osrun PL130 , •!-23^»567890 , 

Functional description ; This command will invoke a routine which sets 
up the PPLI environment (i.e. , issues SIR' s for SVC's and initializes 
required control blocks). It then invokes the module specified, and 
upon return, deactivates the PPLI environment. 

PC? command 

This command presents the name, access, and, for shared data sets, the 
owner's identification of one or more cataloged data sets. 

j . ^ 1 

| Operation | Operand | 

|. ^ f 

|PC? |NAMES=Cdata set name | (data set name [,...])} J 

Note ; Managers and administrators should see Manager's and Administra- 
tor's Guide for special operands. 

NAMES 

identifies one or more cataloged data sets. If a partially quali- 
fied data set name is specified, each data set with the same quali- 
fication is presented. 

Specified as ; one or more fully or partially qualified data set 
names. When two or more data set names are specified, they roust be 
enclosed in parentheses. 
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System default ; every data set in the user's catalog is presented. 

Functional Description : PC? provides the user with this information 
ajDOut a data set: 

• Name - the name of the data set is given, 

• Access - if the data set is owned by the user, the owner access is 
given; if the data set is owned by someone else, the sharer access 
is given. 

• Ownership - if the data set is owned by someone else, the user iden- 
tification of the owner is given. 

In conversational mode, the information is presented at the terminal. 
In nonconversational mode, the information is printed in the SYSOUT data 
set. 

Programming Notes : Presentation can be terminated in conversational 
tasks at any point by pressing the ATTENTION key. The ESS? command can 
be used for more thorough information about cataloged data sets. 

Examples : 

1. The user wants the names of all his data sets. 

User : pc? 

System : DATA SETS IN CATALOG WITH QUALIFIER NICHOLAS 
NICHOLAS. USERLIB, ACCESS: RW 
NICHOLAS. NICHOLAS. TEST, ACCESS: RW 
NICHOLAS. TA000304. SOURCE. SINGLE, ACCESS: RW 
NICHOLAS. TA000307. SOURCE. FCB, ACCESS: RW 
NICHOLAS. TA000310. SOURCE. DOUBLE, ACCESS: RW 
NICHOLAS. TA000313.TMPDBL, ACCESS: RW 

2. The user wants the names of all his data sets with the qualifica- 
tion J.S.B. . 

User : pc? j.s.b. 

The system presents the information for all the data sets with the 

qualification j.s.b. 

PERMIT Comirand 

This command allows the user to permit or restrict sharing of his cata- 
loged data sets by other users. 

r - 1 . 1 

| Operation | Operand | 

j. + f 

(PERMIT |DSNAME=(data set nameJ+ALL} J 

| I [,USERID=C(user identif ication [,. . . 1 ) 1 *ALL> 1 | 

| J C,ACCESS=CR|RO|RW|U>] j 

DSNAME 

identifies the cataloged data set for which sharing is being per- 
mitted or restricted. 

Specified as : a partially or fully qualified data set name. 

♦ALL - all cataloged data sets of the u$er are to be shared. (This 
is referred to as sharing of the catalog.) 
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USERID 

identifies the user being permitted or restricted sharing of the 
specified data set. 

Specified as : the user identification of one or more permitted or 
restricted users. 

♦ALL - all users of the system are permitted or restricted sharing. 

System default : *ALL. 

ACCESS 

designates the access qualification for users sharing the data 
sets . 

Specified as : 

R - restricts access; sharing access that was previously permitted 
is withdrawn. 

RO - read-only access; sharers may only read the data set. 

RW - read-and-write access; sharers may both read from and write to 
the specified data set, but may not erase it. 

U - unlimited access; sharers may read, write, and erase the data 
set. 

System default : If a list of sharers is being updated, the access 
of the last sharer in the list is assumed. If a new list of 
sharers is being created, U is assumed. 

Functional Description : When PERMIT is issued to permit sharing, the 
system either: (1) enters the list of sharing user identifications and 
the associated access qualifiers in the owner's catalog entry that was 
specified by the DSNAME operand, or (2) marks that catalog entry for 
universal sharing. These notations are made only in the owner's cata- 
log; sharers' catalogs are unaffected by the PERMIT coirmand. 

when PERMIT is issued to restrict sharing, entries for sharers are 
removed from the owner's catalog entry. 

Cautions : If a sharer erases a data set to which he has teen given 
unlimited access, the entry of that data set is also removed from the 
owner's catalog. Thus, the owner's catalog can be changed without his 
knowledge . 

The owner of a shared data set cannot withdraw sharing privilege from an 
active user of that data set. 

After a PERMIT command is issued for a data set, the original data set 
definition is not changed (for example, it indicates private ownership). 
If a second user issues a SHARE command for the data set, the owner must 
release the existing data set definition before the sharer can use it. 

Programming Notes : The designated sharers must issue SHARE commands to 
link their catalog entries to the owner's. The sharers can reference 
the data set under the owner's catalog entry only after the PERMIT com- 
mand has been issued. 

Once the owner grants access to all other users, he must also restrict 
all users before he can selectively change the access qualification for 
a specific user. 

Part III: Coirirand Descriptions 207 



The access qualification granted to a sharer is not limited by the 
access level established for the owner during cataloging. For instance, 
the owner can catalog a data set with read-only access for himself and 
still assign unlimited access to a sharer in a PERMIT command. 

Examples : 

1. If all users have previously been granted access to catalog entry 
MB.C, and the owner now wants to restrict every user except SSIMON 
and LAF29, he must first restrict all users: 

permit mb.c,*all,r 

This marks catalog entry MB. C as private. Since the entry is now 
private, the PERMIT command to grant SSIa40N and LAF2 9 access 
creates a new list of sharers: 

permit mb.c, (ssimon,laf 29) ,rw 

2. The user wants to allow users JOSEPH24 and HENRY24A to share his 
cataloged data set AD. ATI with read-only access. These are the 
only sharers in the sharer list. 

User ; permit ad. atl, ( joseph24,henry2**a),ro 

The system enters a list of sharers in owner's catalog. 

3. The user now wants to update the list created in Example 1 by 
changing the access of users JOSEPH24 and HENRY24A to read/write. 

User : permit ad. atl, ( joseph24,henry24a>,rw 

The system updates the sharing list. 

4* A user wants to share his object modules in his user library with 

JBR0WN#1. 

U ser : permit userlib,( jbrown#l) ,ro 

The system enters the sharing list in owner* s catalog. 

PLI Command 

This command invokes the PL/I compiler and compiles a source program 
module. 



| operation ( Operand j 

PLI | lNAME=module name] I, PLI CPT=compiler option list] 

| [,PLCOPT= language controller options] 
| [,SOURCEDS=source data set name] 
j. [,MERGELST=converter input list] 
| E,MERGEDS=converter input data set] 
j I # MACRODS= intermediate data set name] 
| t, EXPLICIT=external names to be changed] 
| t,XFERDS=transfer vector data set name] 



NAME 



The name by which the program will he known. It consists of one to 
eight alphameric characters, the first of which is alphabetic. If 
the name is omitted, PLC assumes that it is identical to the name 
of the source data set if that is in the correct form. If neither 
NAME nor SOURCEDS is provided, no compilation takes place and PLC 
proceeds to process the merge list or go on to the next set of PLI 
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parameters. See PL/I Programmer's Guide for a complete list of 
naming rules. 

Note : In non conversational mode, PL/I source statements can follow 
the PL/I command in the input card deck. See PL/ I Programmer's 
Guide for further information. 

PLIOPT 

The list of options to be used by the compiler. It is considered 
to be one parameter , and the list of compiler options following the 
equal sign in the PLIOPT parameter must therefore be enclosed in 
parentheses unless only one value is given; the separate options 
are separated by commas. The compiler options are described in Ap- 
pendix I. 

PLCOPT 

A list of options external to the PL/I compiler that effects the 
compilations progression through TSS. These options must be en- 
closed in parentheses unless only one value is given. The options 
and the standard default for each are shown in Table 18. 



Table 18. PLCLPT options and system defaults 

r r 

| PLC Option | Standard Default 



N0PRINT | PRI NT | PRERASE 

DIAG|NODIAG 

NOCONT|CONT 

LISTDS (LISTOUT 

NOCONV 

LIMEN= 

BREVITY= 



NOPRINT 
DIAG 
NCCONT 
LISTDS 



system defaults 



The PLC options shown in Table 18 are defined as follows: 

N0PRINT or PRINT or PRERASE 

this option specifies whether the listing data set produced by the 
compiler is to be printed on a high-speed printer. NCPRINT indi- 
cates that the data set is not to be printed as a part of the com- 
pilation. You can at some later time issue a PRINT command direct- 
ly as follows: 

PRINT LIST. XXX(O),,, EDIT 

where XXX is The module name given in the NAME operand. PRINT in- 
dicates that PLC should issue the print request automatically. 
PRERASE indicates that PLC should cause the data set to be printed 
and erased after printing; this is equivalent to: 

PRINT LIST.XXX(O) , , f EDIT, ERASE 

Normally PLC does not issue any print requests. 

If LISTOUT is specified, the data normally written into the list 
data set is directed to SYSOUT and no print request is appropriate. 
In this case the value of this print option is forced to NOPRINT 
under any circumstances. 

DIAG or N0DIAG 

this option specifies whether diagnostics are to be directed to 
SYSOUT or not. (This option only has meaning if LISTDS is speci- 
fied. If LISTOUT is specified, then all compiler diagnostics 
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appear on SYSOUT as a part of the listing data.) If DIAG is speci- 
fied, then the diagnostics that will appear on SYSOUT are controll- 
ed by two command- system defaults, LIMEN and BREVITY, which control 
the severity and length of the PL/I diagnostics selected for print- 
ing on SYSOUT. The IIMEN and BREVITY operands of the PLI command 
are explained later in this section. 

The format of the diagnostic message is: 

x IEMnnnnl statement no. line no. text 

where x is the severity of the diagnostic and nnnn is the diagnos- 
tic number. For example: 

S IEM0182I 15 1600 TEXT BEGINNING 'KEYFROM CK f SKIPPED IN 

OR FOLLOWING STATEMENT NUMBER 15 

If no option is specified, then DIAG is assumed. 

NOCONT or CONT 

specifies whether additional programs are to be compiled before re- 
turn to the command system. NOCONT implies that there is no con- 
tinuation of compilation. This is assumed if no value is speci- 
fied. If CONT is specified, then PLC prompts for a new module name 
with PLI on a new line if none was given in the original PLI com- 
mand. To end the prompting, enter an underscore with a command, or 
default by pressing the RETURN key. 

This CONT event can be repeated as often as necessary. 

LISTDS or LISTOUT 

this option allows you to choose whether a separate data set should 
be constructed by the PL/I compiler for the computer listing or 
not. This is the default value specified explicitly by LISTDS. 
LISTOUT implies that a separate listing is unnecessary and that the 
listing output can be placed in SYSOUT. Particularly in nonconver- 
sational environment, the use of the SYSOUT data set is more effi- 
cient. Since in nonconversational operation the SYSOUT data set is 
automatically printed, the number of print requests is reduced as 
well as the overall load on the system. 

In a conversational environment, placing the listing data on SYSOUT 
means typing this data on the terminal. Only in most urgent cir- 
cumstances should you consider this alternative. 

NOCONV 

this option allows you to specify that nc compilation is to occur. 
If NOCONV is selected, the MERGELIST operand should contain the 
names of the modules that are to be put into the transfer vector 
data set. 

LIMEN= 

LIMEN is the operand name in the user profile for message-severity 
codes. It controls the severity of diagnostic messages printed on 
SYSOUT. If specified in the PLI command, LIMEN applies only to 
PL/I diagnostics. (See DIAG, above.) If LIMEN is not specified, 
the current value in the system profile is used. 

LIMEN Value Lowest Level Diagnostic Issued 

I (information) Warning messages 

w (warning) Serious error messages 

X (serious error) Termination error message 

T (termination error) None is* shewn 
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BR EVITY= 

BREVITY is the operand name in the user profile for message- length 
codes? it controls the length of diagnostic messages printed on 
SYSOUT. If specified in the PLI command, it applies only to PL/I 
diagnostics. (See DIAG, above. If not specified, the current 
value in the system profile is used. 

BREVITY Value Output 

M (message ID) Message ID only 

S (standard) Full text of message 

E (extended text) Full text of message 

T (standard, no ID) Full text of message without 

message ID 
X (extended, no ID) Full text of message without 

message ID 

Note: Both LIMEN= and BREVITY= can be followed by only one 
character. If the equal sign is not the next-to-last character, 
the option is ignored. Thus: 

LIMEN=I is valid 

LIMEN=INFO is invalid because more than one character 
follows the equal sign. 

LIMEN= I is invalid because there should be no space after the 
equal sign. 

SOURCEDS 

the fully qualified name of the data set from which the PL/I source 
statements are to be obtained. Any valid line data set is allow- 
able. Examples: 

1. ABLE 

2. A.B.C.D. 

3. A.B(C) 

4. A.B.G0000V00 

5. A.B(O) 

6. A.B(O) (C) 

If the NAME operand is omitted, the SOURCEDS name is used as the 
name of the object module. Therefore, if the NAME operand is 
omitted and a TSS executable object module is to be generated, the 
source data set must not be in the last-defined job library, since 
the object module will be stored in that library. TSS does not 
allow a library to contain duplicate entry names. 

If SOURCEDS is omitted, the name assumed for the source data set is 
SOURCE. XXX, where XXX is the value you gave for the NAME operand. 

If neither NAME nor SOURCEDS is given, it is assumed that no compi- 
lation is to take place for this iteration of PLC. Other functions 
involving ODC may be involved. The system default for SOURCEDS is 
a string of blanks. 

MERGELST 

the names, separated by commas, of previously compiled modules to 
be converted by ODC for execution with the module being compiled. 
Each of these modules should still exist as data sets named LOAD. 
XXX (0), where XXX is the name given by you, or by default, in the 
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NAME operand. (Intially, the compiler creates all modules as LOAD. 
XXX (0) data sets. You should not erase these data sets until you 
are sure that you have all the needed copies of the converted 
object module.) Modules that have been stored in job libraries af- 
ter processing by ODC cannot be used in a merge list. 

If NOCONV is specified as a PLC option, this operand roust contain 
the names of the modules that are to be transformed. You should 
keep the LOAD data sets if complete module refreshment is desired* 
Otherwise, you are not required to keep the LOAD data sets for 
reconversion. 

If the MERGELST operand is omitted but the LOAD option is indicated 
in the PLIOPT list, the PL/I compiler still generates a merge list 
containing the name of the compiled program. 

MERGELST is similar to the NAME cards generated by OBJNM=aaaaaaaa 
in PL/I. The merge list can be a single program name: 

BAKER 

or a list of program names enclosed in parentheses: 

(FOX, GEORGE, HOW) 

The list must not exceed 253 characters, including blanks and 
coirnas. 

Duplicate program names in the list cause reprocessing of those 
programs. The only penalty is in terms of added processing time. 

If no value ic supplied for MERGELST, then a null string is assumed 
initially. 

MERGEDS 

allows you to name a data set as the source of the merge list. 
This can be in lieu of MERGELST or a supplement to it. If this 
data set is VS or VI, it is assumed that each record contains from 
to 15 program names separated by commas. As anywhere else, 
spaces are immaterial. The PLC and ODC assume that all program 
names in the MERGEDS for which a LOAD. XXX CO) data set exists are 
tobe combined into a single JOBLIB. Duplicate names cause dupli- 
cate processing, but otherwise do not hurt. 

If the data set is a VP data set, then it is assumed that all the 
member names for which a LOAD.XXX(O) data set exists are to be com- 
bined into a JOBLIB. If the current active JOELIB has the same 
name as MERGEDS, then all modules in the POD for which a PL/I LOAD. 
XXX (0) data set exists are to be reprocessed. 

If no value is supplied, no data set is assumed for MERGEDS. 

MACRODS 

is the data set name to be associated with the intermediate text. 
If no name is given and either CHAR4 8 or MACRO options are speci- 
fied, the compiler creates a data set named: 

MAC. name CO) 

Where 'name 1 is the user-supplied object module name. This data set 
is normally erased when the compilation is completed. If you spe- 
cify a value for MACRODS, that name is used instead of MAC. name (0) 
for the data set, and it is retained permanently with a compiler- 
generated source margin of 2 to 72. If a v lue is given for 
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MACRODS but neither CHAR48 nor MACRO is specified, the value is 
ignored and does not contribute to or hinder the compilation. 

Note: When using this data set for reoo epilation, a source irargin 
of 2 to 72 must be specified in the S0RMGIN option of the PLI com- 
mand' s PLIOPT parameter. 

EXPLICIT 

specifies the external names to be changed and put into a transfer 
vector data set. 

Specified as : 

name - the external name, 
(name+l, ...] ) - list of external names. 

*ALL( (name+C, . .. 1 )] - all external names that do not begin with IHE 

except the names listed in parentheses 

Programming Notes : The systeir default, MAP, reports to the user 
the results of name changes to REFs. The default, N Cno report), 
can be changed to Y (report) by issuing the DEFAULT command. 

The padding character that is used when the external names are 

changed is the symbol a. This character can be changed to any 

alphabetic character or to the symbols # or $ by using the DEFAULT 
command, with PADCHAR specified as the operand. 

The system default value, UPDTXFER, if entered as UPBTXFER=Y, spe- 
cifies that new names can be entered into the transfer vector data 
set. If entered as UFDTXFER=N or if defaulted, no names can be 
entered into the data set. 

XFERDS 

is the name of the transfer data set that will be created. If this 
operand is omitted, there will be no transfer data set. An exist- 
ing data set specified on this operand will be updated, and if the 
data set does not exist, it will be created. 

Programming Notes : The system default value, PLIPACK, is checked to de- 
termine what type of CSECT packing will be done. The options are: (1) 
Y, all CSECTs of the input module will be packed; (2) P (the default), 
there will be partial packing of CSECTs; and (3) N, no CSECT packing 
will be done. 

The system default value, REJMSG, is used to override the output of 
rejection messages by the loader. The options are: (1 ) N (the 
default), no overriding; and (2) Y, override. 

You can change the initial settings of PLIPACK and REJMSG. Issue a 
DEFAULT coirmand with the new value before issuing the PLI command. 



PLIOPT Command 

This command will invoke the PL/I Optimizing Coirpiler program product 
using the Program Product Language Interface. 

f , . ., 

| Operation (Operand | 

j. ^ . j 

[PLIOPT |NAME=modulename[,030PTS=(optl,opt2,. .. ) ] j 

| | [ f SOURCEDS=sourcedsname] | 

L J- . , J 
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NAME 



identifies the name fcy which the object prograir will be known to 
TSS. It consists of one to eight alphameric characters, the first 
of which is alphabetic. If the SOURCEDS option is not specified, 
there must exist a dataset called SOURCE- name which is assumed to 
be the source program to be compiled. 



OSOPTS 

specifies a list of OS 
tion. Not all options 

Compiler Option 



options to be in effect during the compila- 
are applicable in TSS. 



Abbreviated Name 



AGGREGATE [ NOAGGREGATE 


AG | NAG 


ATTRIBUTES | NOATTRIBUTES 


A1NA 


CHARSET(U8|60 3 
(EBCDICJ BCD! > 


CS(U8|60] tEB|B]) 


COMPILE I NOCOMPILE UWlE|S)J 


C|NC [(W|E|S)] 


CONTROL ( • password" ) 





COUNT | NOCOUNT 


CT|NCT 


DECK|NODECK 


D|ND 


DUMP|NODUMP 


DUJNDU 


ESDJNOESD 





FLAG [CI|U|E|S>] 


F C(I|W|E|S)] 


GON UMBER J NOGONUMBER 


GNI NGN 


GOSTMT | NOGSTMT 


GS| NGS 


IMPRECISE | NOIMPRECISE 


IMP|NIMP 


INCLUDE | NOINCLUDE 


INC|NINC 


INSOURCE) NOIN SOURCE 


IS|NIS 


LINECOUNT(n) 


LC(n) 


LIST [(N,M)3|N0LIST 




LMESSAGE1 SMESSAGE 


LMSGfSMSG 


MACRO | NOMACRO 


MJNM 


MAPINOMAP 




MARGINI ( f C f ) | NOMARGINI 


MK'C 1 ) |NMI 


MARGINS (m,n (,cl ) 


MAR(m,n [,c]) 


MDECKINOMDECK 


MDJNMD 


NAME( •name 1 ) 


NC^aine') 



NEST|NONEST 



TSS Default 

NOAGGREGATE 
NOATTRIBUTES 
CHARSET (60EECDIC) 

NOCOMPILES(S) 

NOCOUNT 
NOEECK 

NDESD 

FLAG (I) 

NOGONUMBER 

NOGOSTMT 

NOIMPRECISE 

NOINCLUDE 

INSOURCE 

LINECOUNTC5 5) 

NCLIST 

LMESSAGE 

NOMACRO 

NCMAP 

NOMARGINI 

MARGINS (2, 7 2,0) or 
MARGINS CIO, 100, 0) 

NCMDECK 
NONEST 
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NUMBER! NONUMBER 

OBJECT |NOO EJECT 

OFFSET1NOOFFSET 

OPTIMIZE(TIME]0|2) 
NOOPTIMIZE 

OPTIONS | NOOPTIONS 

SEQUENCE (m,n) JNOSEQUENCE 

SIZE([-]YYYYYYYY| 
[-1YYYYYK MAX) 

SOURCE | NOSOURCE 

STMT|NOSTMT 

STORAGE) N03T0RAGE 

SYNTAX) NOSYNTAX ((WlE|S)l 

TERMINAL [ (opt-list) 1 J 
NOTERMINAL 

XREF|NOXREF 

See Appendix L and OS Piyi 
further information. 

SOURCEDS 

specifies the nanae of 



NUMJNNUM 

OBJJNOBJ 

OFJNOF 

OPT (TIME |0 | 2) |NOPT 

OP \ NOP 

SEQ(m r n)|NSEQ 

SZI-1YYYYYYYY1 
E-1YYYYYK MAX) 

S|NS 

STG|NSTG 

SYN|NSYN [ (W|EIS)] 

TERtf [(opt- list) 3! 
NTERM 

X|NX 



NON UMBER 
OBJECT 
NCOFFSET 
NOOPTIMIZE 

OPTIONS 
NOSEQUENCE 
SIZE (MAX) 

SOURCE 
STMT 

NCSTCRAGE 
NOSYNTAX (S) 
NOTERMINAL 

NOXREF 
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the input data set to be compiled. 



POD? Command 

This command places on SYSOUT a list of the member names and, optional- 
ly # the alias names and other information pertaining to individual mem- 
bers of cataloged VPAM data sets. 



j Operation | Operand 

j. + .. 

|POD? | CPODNAME=data set name] t ,DATA=Y] I ,ALIAS=Y] 

| | [ f MODULE= (module namej *ALL}] 

L J 



1 



PODNAME 

identifies the cataloged VPAM data set for which member information 
is to be presented. 

Specified as : the fully qualified name of a VPAM data set, or the 
absolute or relative generation name of a VPAM member of a genera- 
tion data group. 



System default : USERLIB. 



DATA 



specifies that the system and user data (if any) associated with 
each member is to be printed in hexadecimal. Only the first 21 
bytes (42 hexadecimal digits) of user data are printed. The format 
and content of this data are defined by the user. Similarly, only 
certain system data (25 hexadecimal digits) can be printed. 
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Specified as : Y. 

System default : the system and the user data associated with each 
member is not printed. 

ALIAS 

specifies that any aliases of each member are to be printed. An 
alias is another name by which a member of a VPAM data set can be 
identified. 

Specified as : Y. 

System default : the members' aliases are not listed, 

MODULE 

identifies the module (member name) for which information associat- 
ed with that module will be printed. The information consists of 
the module's version ID and the name, version ID, attributes, and 
external references for each CSECT within the module. The CSECT 
entry points are provided by the ALIAS option. 

Specified as : 

module name - information is provided for the specific module « 

*ALL - information is provided for all modules in the data set* 

System default : no module information is printed. 

Functional Description : If a VPAM data set is a program library Cfor 
example, user library or a job library), its members are object program 
modules. Each member has a name that was assigned by the user during 
compilation, assembly, or linkage editing. This name is used by the 
system as the basis for stowing the module in the library, and it is 
recorded in the program library's directory (POD). To make each module 
available on the basis of other naires (for example, entry point names), 
the system also defines a number of aliases for the module (for example^ 
all external symbol definitions except those named COKMCN are defined as 
aliases). The alias names are also stored in the POD by the system. 
The user can thus invoke a module based on its member name or any of its 
aliases. Additional information describing the version and external 
references of a module is contained in the program module dictionary 
(PMD) and is available to the user via the MOEULE option. 

If a VPAM data set is not a program library, each of its member names is 
defined in the STOW macro instruction or in a command (as CDS) that was 
used when the member was added to the VPAM data set. 

Programming Notes : The PCD? command can be used to examine information 
pertaining to the members of any cataloged VPAM data set that a user 
owns or shares. 

The conversational user may terminate the printout at any time by pres- 
sing the ATTENTION key. 

The format of the information sent to 3YSOUT after the POD? command is 
executed is shown in Figure 2. 

Example : The user wants to obtain a listing of the modules presently in 
his user library. 
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User ; pod? userlib,y f y 
System : 

SYSPRX 2003600030001000000000000 

JJCBHELP 2002E000 30010000000000000 000000000000016400010000000020000000000000 

PSCNDX ,RDINDX ,GOINDX 
NIP 2001P00030010000000000000 0O000OOOOOOOO0D0000 1 00000000 1 0000002000000 

PIN 
TWOCOL 2000C000300 10000000000000 000000000000035C00010000000020000000000000 

TWOCOLftC, TWOCOL#P 



-iV- 



member LJ system-supplied « ' 
name , , member data 



-**- 



-SV 



user-supplied 
member data 



is- 



J— H2k; 



- 8 — H 2 H- 25 hexadec i ma I - 
bytes bytes digits 



2K- 
bytes 



-42 hexadecimal digits - 



i — i n r 

WW alias, f alias 2 f 



-8 



— Hih — 8- 



-1S- 



-**- 



r alias.. 



-8- 



If there are more than seven alias names, additional lines 
are printed that contain up to seven aliases each. 



W0&nODULEfeVERSION0ID.0# 
1 1 


version ID 


I 1 


J 4 20 »■ 


«. 18 *. 


4 U— 8— J 



See Note 1 



See Note 2 



WWCSZCY'.WW name x W version ID ##ATTR: VAR,RO f PUB f <=onnnuea 



j 



-18- 



-H21-5-* 



J 



i — rrn m — i 1 n 

PSECT ,COM PRIVIL, EYSlSWtiEXTERNAHSREFERENCES: REF X f 



1|2|1| 3 |l[*- 

n H — 



L 



J_L 



J I 



U-5-Jll 3 llU-6-*Jll 3 1*4- 



-20- 



J_L 



If there are more than six references, additional lines 
are printed that contain up to eight references each. 



^ ^ U 

I — HlU- -JlU — 8 

See Note 3 



Note 1 . The module version ID may appear in either of two formats, depending on the manner in 
which it was originally specified. One format consists of eight EBCDIC characters, and the other 
consists of a date and time in the format MAVDD/YY/^HH:MM-SS (for example 07/22/71 12:15:08) . 

Note 2. If this is a FORTRAN module, this eight -byte field contains the words FTN MAIN or FTN SUBR. 

Note 3. The CSECT name, version ID, attributes, and external references are repeated for each CSECT 
within a module. The attributes and external reference portions only are provided if at least one attri- 
bute or one external reference is applicable. Only the applicable attributes are provided without 
superfluous commas. The attributes that may be associated with a CSECT. are Va'r (variable-length), 
RO (read-only), Pub (public), PSECT (PSECT), Com (common), Privil (privileged), and Sys (system). 

Figure 2. Format of output from the POD? command for each member 

POST Command 

See "DISABLE, ENABLE, PCST, and STET Coirmands." 
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PRINT Command 

This coirroand schedules a job to print a data set on a high-speed line 
printer. 

| Operation | Operand | 
,. H , 

PRINT |DSNAME=data set name! ,STARTNO=star ting position! 

j l,ENDNO-ending position] 
I # PRTSP=EDITI1|2|3| 

I £,HEADER=Hl [ ,LINES=lines per pagel [, PAGEUP] 
j I, ERASE=CY1N}) { f ERROROPl = {ACCEPT) SKIP | END) ] 
| [,FORM=paper f orm] [ ,STATION=station idl 

Mote : System programmers should see System Programmer's Guide for spe- 
cialized operands, 

DSNAME 

identifies the data set that is to be printed? VAM data sets roust 
be cataloged? BSAM data sets irust be defined within the current 
task by a DDEF command or must be cataloged. 

Specified as : a fully qualified data set name. 

STARTNO 

specifies the byte position at which printing is to start for each 
data set record. 

Specified as ; from one to six decimal digits. 

System default : printing starts with the first byte of each 
record. 

Note : In a VISAM line data set with no regions, the data begins in 
position 9. 

ENDNO 

specifies the byte position at which printing is to stop for each 
data set record? this end byte will be printed. 

Specified as : from one to six decimal digits. 

System default : printing continues to the last byte of each logi- 
cal record or until the printer line length is reached, whichever 
occurs first. (The maximum printer line length is 132 characters.) 

PRTSP 

specifies the number of spaces to be skipped between lines. 

Specified as : 

EDIT - line spacing is controlled by a character in the first byte 
position of each logical record. The control characters may 
be either a FORTRAN control character Cdefined by American 
National Standard FORTRAN, ANSI X3. 9-1966) or machine code 
(see Appendix D), but must be of the same type throughout 
the data set. Hie control character in each record is 
user-supplied. 

1 - one space between lines. 

2 - two spaces between lines. 

3 - three spaces between lines. 
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Note: When EDIT is specified, the HEADER, LINES f and PAGE operands 
roust not be specified. 

System default : 1. 

HEADER 

specifies that the first logical record of the data set is to be 
repeated on each print page as a header line. The first 132 bytes, 
or the entire first record, whichever is smaller, will be used as 
the header. 

Specified as : H. 

System default : no header is printed. 

LINES 

indicates the number of lines to be printed on a page. 

Specified as : from one to four decimal digits; 9999 is the 

maximum. 

System default : 5<* lines are printed on each page. 

PAGE 

specifies that pages are to be numbered. 

Specified as : P. 

System default : no page numbers are assigned. 

ERASE 

specifies that the cataloged data set is to be erased from the 
catalog after the printing operation is finished. 

Specified as : 

y - erase 
N - save 

System default : no erasure is made. 

ERROROPT 

designates the action to be taken when an uncorrectable error is 
found while reading a data set record. This option applies only if 
the data set to be printed is on tape. 

Specified as : 

ACCEPT - error record is accepted. 

SKIP - error record is skipped. 

END - print operation is terminated. 

System default : END is assumed. 

FORM 

designates the identification of the desired combination of paper 
forms, print chain, carriage control tape, etc. See the installa- 
tion manager for acceptable values. 

Specified as t from one to six alphameric characters. 

System default : the installations standard printer form, chain, 
etc., is used (as specified at system generation). 
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STATION 

indicates the RJE station identifier to which output is to be sent. 

Specified as ; up to eight alphameric characters. 

System default : ID from Task Common is used. 

Notes This parameter can be specified only if the user was assign- 
ed this capability when he was joined to the system. 

Functional Description ; PRINT assigns the request to an independent 
nonconversational task, to which the system assigns a ESN for possible 

reference by the user. The specified data set is printed as it appears. 
Invalid print characters appear as blanks in the output. Data set rec- 
ords containing a read error (or an invalid control character, when the 
EDIT option is us^d) are printed in hexadeciEial on SYS0UT. When the 
data set resides on seven-track tape, the systeir makes the character 
adjustments required to ensure data validity* 

If the user specifies a form number, the system includes that number in 

its instructions to the system operator when the printer is readied for 
operation. 

The data set name specified for a BSAM data set may or may not be cata- 
loged- If not, it is placed in the catalog until printing is completed 

and then erased, regardless of the ERASE option* If the data set name 
is cataloged, the ERASE option ran be used to erase after printing is 
completed. 

When EDIT is specified, the first byte of each logical record is assumed 
to be the byte following the control character, which is not printed and 

is not counted when determining where to begin printing a record. 

If the data set to be printed was created via the DATA command, the 
first byte of each record contains an, indicator of the origin of the 
record. PRINT translates the byte to a C if the record was entered 
through a card reader and to a blank if it was entered through the key- 
board. Unless the STARTNC operand is specified, this byte is printed as 
part of the record. If STARTNQ is specified as 2, this byte is 
bypassed. 

Cautions ; When the user issues PRINT for a BSAM "data set that is de- 
fined in his task f the data set definition is released, and the data set 
is disconnected from the user's task. 

The PRINT command is valid for BSAM, VSAM, and vlSAM data sets only. It 

cannot be used to print a member of a VPAM data set* However, a VPAM 
member can be copied with the CDS command, and then the copy can be 
printed. 

A BSAM data" set must reside on magnetic tape; a VSAM or VISAM data set 
must not have undefined (format-U) format records. 

PRINT should not be used for an uncatalcged data set that is awaiting 
bulk .I/0 # as PRINT automatically erases an uncataioged data set. 

programming Notes : The user may use the BSN to identify his task when 
using the CANCEL command. 

To print an unlabeled taoe, the user must precede the PRINT command with 
a DDEF command and these operands: 

DDNAME=name*PS, DSNAME=dsname ,DCB= (RECFM=f onrat, LRECL=length, 
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BLKSIZE=block size,DEN=C0|l|2>,TRTCH=CC|E|T}),UNIT=(TA,tape type), 

VOLUME= (, volume serial number) ,IABEL=( ,NL) ,DISP=OLD 

The user can also obtain a data set suitable for printing by using the 
WT command . 

Example : The user wants data set T44. REMOVE to be printed single- 
spaced. The entire logical record is to be printed; no header or page 
numbers are wanted; 54 lines per page are wanted on standard printer 
forms; and the data set's catalog entry is not to be erased. 

User ; print t44. remove 

System ; BSN=0231 

PRMPT Command 

This command allows a user to manipulate and use the iressage file. 



, 1 — _ n 

| Operation | Operand \ 

| PRMPT |MSGID=message identification J 

I | [, INSERTn=inserted character (,. ..] 3 | 

M3GID 

the identification of some message in the iressage file CSYSMIF). 
If identification is less than eight characters, it is padded with 
blanks on the right. If it is greater than eight characters it 
will be truncated. 

INSERTn 

variable text to be inserted in the text of the message. The maxi- 
mum text that can be inserted in a single insertion is 40 charac- 
ters. If no inserted text is given when the message text expects 
some, the location of the inserts is indicated with three 
asterisks. 

Functional Description ; The PRMPT command can generate messages from 
the message file so that they can te examined and comprehended. This 
allows users to display the standard and extended forms of the message 
easily. The command also allows substitution of inserts into the text 
of messages and, with DISPLAY, allows messages to be issued from coirirand 
procedures (PRQCDEFs ) . 

Example ; The user has a message in his own message file that reads; 

Z0065 LITHUANIA $01 SWING $02 

He can issue this message with the PRMPT command as; 

User ; £rmpt zco65 

System ; Z006 5 LITHUANIA *** SWING *** 

User ; prmpt zoo65,does 

System ; ZOO 6 5 LITHUANIA DOES SWING *** 

User; £rmpt zoo65,can,too 

System ; Z006 5 LITHUANIA CAN SWING TOO 

PROCDEF Coirmand 

The PROCDEF command defines a user-written command procedure that con- 
sists of other commands. 
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r T n 

I Operation (Operand | 

[PROCDEF |NAME=procedure namel,PROLIB=data set name] | 

NAME 

designates the name to be assigned to the conirand procedure. 

Specified as ; from one to eight characters. . This name must not 
contain embedded blanks, commas, semicolons, equal signs, or 
apostrophes . 

PROLIB 

specifies the library in which the PROCDEF is stored. 

Specified as ; the name of a VPAM data set. If the specified data 
set does not exist, it will be created. The PROCDIF is stored in 
the SYSPRO member of the data set. 

System default ; USERLIB. 

Functional Description ; When the user enters the PROCDIF command and 
operand, the text editor is invoked to monitor PROCDEF processing. Ihe 
user can use all of the text- editing facilities during command creation. 
Unless the user suppresses line number prompting (DEFAULT LINENO=fl) , the 
system prompts him to enter data by issuing line nunrbers. For a new 
procedure, the system issues a line number with the value of BASE (100 
is the default value for BASE). For an existing procedure, an under- 
score is issued; CLP is set to the first line in the PROCDEF. 

Programming Notes ; For a detailed discussion on defining command proce- 
dures, see "Command Procedure* in Section 4 of Part II. 

If you specify a data set, other than USERLIB, in which to store the 
PROCDEF, you cannot execute that PROCDEF until you either redefine the 
data set as USERLIB or store the PROCDEF in USERLIB. 

Example ; If COPYCAT is the name of the command procedure being defined, 
the user enters; 

procdef copycat 

and the system replies; 

0000100 

If COPYCAT had been defined previously, the system 1 s prompt would have 
been; 

PROFILE Command 

This command causes the task profile to replace the user profile in 
USERLIB. 

| Operation | Operand [ 

[PROFILE |£CSW={N|YH | 

L J . . J 

CSW 

specifies whether the command symbols are to be saved with the task 
profile. 
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Specified as ; 

Y - the command symbol definitions are saved with the task profile • 
N - the command symbol definitions are not saved with the task 
profile. 

System default : N. 

Functional Description : When a PROFILE command is issued, the task pro- 
file is written into the user library, replacing the previous version, 
and remains unchanged until another PROFILE command is issued or until 
the USERLIB (SYSPRX> is erased. As a result, values entered by DEFAULT 
or SYNONYM, and (optionally, if CSVi=Y) SET commands, are made part of 
the user profile that is in USERLIB and these values are then used to 
set up the task profile whenever the user initiates a new task. 

Caution : Any changes to the task profile made in the current task be- 
fore the PROFILE command is entered become a part of the permanent 
profile. 

Programming Notes : This command is used when the user wants his current 
task profile to be used for subsequent tasks. 

Examples : 

1. The user wants to save task profile with no command symbol 
definitions. 

User : jgrofile 

System : _ 

2. The user wants to save task profile including command symbols. 

User : profile csw=y 

System : 



PUNCH Command 

This command schedules a job to punch an existing VSAM or VISAM data set 
into cards on a high-speed punch. 

I T ' ~1 

| Operation | Operand | 

^ 4 — : \ 

[PUNCH |DSNAME=data set name*,] 1 

| I I,STARTNO=starting position! £,ENDNO=ending position] J 

| | [,STACK={1| 2|3|EDIT] £,ERASE={Y|N>] [ r FORM=card form! | 

DSNAME 

identifies the cataloged VSAM or VISAM data set to be punched. 

Specified as : a fully qualified data set name. 

I.J 

specified, if following parameters are entered in positional nota- 
tion, to maintain system compatibility. 

STARTNO 

specifies the byte position at which punching is to start for each 
data set record. 

Specified as : from one to six decimal digits. 
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System default : punching starts with the first byte of each 
record. 

ENDNO 

specifies the byte position at which punching is to stop for each 
data set record. This end byte is punched. 

Specified as : from one to six decimal digits. The value must be 
greater than the value of the STARTNO operand. 

System default ; punching continues to byte 80 or to the end of the 
record, whichever occurs first. 

STACK 

specifies the stacker select or edit option: 

Specified as : 

1 - pocket number PI. 

2 - pocket number P2. 

3 - pocket number P3. 

EDIT - the first byte of each data set logical record contains a 
control character for stacker selection. This control 
character may be either a FORTRAN control character or ma- 
chine code Csee Appendix D) , but must be of the same type 
throughout the data set. The control character in each rec- 
ord is supplied by the user. 

Systeir default : 1. 

ERASE 

specifies that the cataloged data set is to be erased from the 
catalog after the punch operation is finished. 

Specified as : 

Y - erase. 
N - save. 

System default : N. 

FORM 

designates the punch card form to be used for this punch request. 

Specified as : from one to six alphameric characters. 

Note : The system does not check the specified form type? you must 
convey the meaning of the specified form type to the system 
operator. 

System default : installation's standard card form is used. 

Functional Description : This command results in the assignment of the 
request to an independent non conversational task # to which the system 
assigns a BSN for possible reference by the user. 

The specified data set is punched as it stands 9 with no code conver- 
sions. The STARTNO and ENDNO options allow selection of any contiguous 
field of up to 80 bytes of EBCDIC data from each record of the data set. 

Input records containing an invalid control character, when the EDIT 
option is used f are printed in hexadecimal form on system output 
(SYSOUT) . 
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If the user specifies a form number, the systera includes that number in 
its instructions to the system operator when the card punch is readied 
for operation. 

When EDIT is specified, the first byte of each logical record is assumed 
to be the byte following the control character, which is not punched and 
is not counted when determining where to begin punching the record. 

If the data set to be printed was created via the DATA command, the 
first byte of each record contains an indicator of the origin of the 
record. PUNCH translates the byte to a C if the record was entered 
through a card reader, and to a blank if it was entered through the key- 
board. Unless the STARTNO operand is specified, this byte is printed as 
part of the record. If STARTNO is specified as 2, this byte is 
bypassed. 

Caution : The PUNCH command is valid for VSAM and VIS AM data sets only* 
It cannot be used to punch a member of a VPAM data set. (In the latter 
case, the irember can be copied via the CDS command, and the copy can 
then be punched. ) 

Programming Notes : The user may use the BSN to identify his task when 
entering the CANCEL command. 

If the user wants to punch VISAM data sets, and he does not want to in- 
clude the line number and keyboard/card reader character, he can specify 
that the data to be punched begins in column 9 of the data set (columns 
1-7 are the line number; column 8 is the keyboard/card reader charact- 
er). To do this, the user can specify: 

pu nch ds name , st art no=9 

When the PUNCH command is used to punch a line data set, and the punched 
deck will subsequently be used as card-reader input by the operator to 
re-create that line data set, the line numbers in the original data set 
should not be punched out. When the operator reads the cards into the 
system, a line number is automatically prefixed to each record of the 
line data set (see Appendix A). 

Example : The user wants to punch characters 24 through 56 of each 
EBCDIC record in data set GH00TS9 and selects pocket 2. After comple- 
tion of punching, the data set is to be saved. The usual card form is 
to be used. 

User : punch ghoots9 , ,24 ,56 ,2 
System : BSN=0244 

PUSH Command 

This command saves the status of the interrupted program. 



I ' T ■ ' 1 

| Operation j Operand | 

,. + , 

(PUSH j [SIRTEST=CN|Y>] j 

Note : PUSH should be issued only after an attention interruption. 

SIRTEST 

specifies whether the system will check for a user -defined SIR 
routine. 

Specified as : 
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N - the system does not check. 

Y - the system checks. If a SIR routine exists, PUSH is canceled. 

System default ; N. 

Functional Description ; PUSH saves the status of all general registers 
and the PSW for the active program in a system save area. If SIRTEST-Y, 
and if there is an active SIR routine defined by the user, the PUSH com- 
mand is canceled. 

Programming Note : The status of a program is automatically saved when 
the user issues an ATTENTION interruption. The PUSH command allows him 
to save the status of a program, modify the copy that he interrupted, 
and execute both the original and the modified copy. CSee Example 2, 
below. > 

Examples : 

1. The user has interrupted his program; he wants to save the status: 

User : (presses ATTENTION key) 
System : ! 
User : push 

The system saves the status of the program in a system save 
area. 

2. The user now wants to change the oopy that he just saved. Next, he 
wants to run the altered copy, and then run the original copy that 
was saved: 



User : push (from Example 1) 

Sys,User : set 5r=x - 10 - (alters program) 

Sys r User : <jo lxu n ® altered version) 

Sys,User : 30 (runs original version) 



QUALIFY Command 

This command allows th3 user to reference the internal symbols within an 
object module without using the fully qualified name. 



j Operation j Operand 

(QUALIFY J MNAME=£ link-edited module name. lob ject module name 



MNAME 

identifies an assembled or con pi led program (object module) and, 
optionally, a module processed by the linkage editor. 

Specified as : an object module name, control section name, or 
entry point name and, optionally, a link-edited module name fol- 
lowed by a period and an object module name. 

Functional Description s An ISD must have been requested when the origi- 
nal program was assembled, compiled, and, optionally, processed by the 
linkage editor. QUALIFY enables the user to reference, implicitly, the 
program's internal symbols wihtout preceding the internal symbols with 
the appropriate object module, control section, entry point or link- 
edited module name. QUALIFY loads the module if it is not currently 
loaded. 
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Caution: Only one QUALIFY command can be in effect at one time. Each 
QUALIFY command overrides any previous ones. 

Examples ; 

1. The user wants to reference, implicitly, the qualified internal 
symbols in the program named PGMF, which is a part of the link- 
edited program named PGML. 

Users qualify pgml.pgmf 

System : _ 

Note : The user may thereafter reference internal symbols in this 
program in implicitly qualified form, 

2. The user wants to qualify his internal symbols in program PGMF, but 
he failed to request an ISD with his assembly or compilation. 

User : qualify pgmf 

The system informs the user that the module has no ISD. The user 
must then use external symbols in his references to internal sym- 
bols in PGMF. 

3. The user wants to qualify his internal symbols defined in program 
PGMF, which is part of the link-edited program named PGML. Howev- 
er, in entering the QUALIFY command, he neglects to specify the 
name of the original assembly or compiler module. 

User : cjualify pgml 

The system informs the user that he needs two levels of 
qual if ica tion . 

User : cjualify pgml.pgmf 

System s _ 



REGION Command 

This command is used to change regions when the user is editing a region 
data set (see "EDIT Command"); it can also be used to specify editing of 
a region data set when that information was not provided in the £DIT 
command. 



(Operation [Operand j 

(REGION | [RNAME=region name] | 

RNAME 

identifies an existing region or specifies the new region name to 
be assigned to a line or range of lines. The value of the REGSIZE 
operand in the user profile determines the maximum size of the 
region names for the data set; region names are padded on the right 
with blanks or truncated to fit the region name field. 

Specified as s an existing region name or as a string of 1 to 24 4 
characters. 

System default : a blank region name is assumed. 
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Functional Description : A region data set is created with the EDIT coro* 
mand using the RNAME and REGSIZE operands. If the user wants to operate 
on another region in the same data set, he can use the REGION command to 
specify the new region. The system responds with an underscore if the 
region exists or line number 100 if the region is new to the data set. 
The lines of data in a region data set are prefixed by the system with 
the name of the region and the line number within the region. Like 
EDIT, the REGION command prompts with line numbers in increments of 100 
(if the value of INCR is 100) , until a command preceded by a break 
character is entered. The region name prefix is not issued when the 
system prompts with line numbers, but is issued when the user displays 
the lines with a LIST command. 

Caution : She system automatically reorganizes the regions of a data set 
into alphabetically ascending order. A language-processing command 
(EDIT, PROCDEF, or PLI) must be invoked before the command is issued. 

If editing commands with Nl and N2 operands are not preceded by a REGION 
command, the system assumes the current region name if one exists or a 
blank regicn name. After entering REGION, the user can reference any 
line in the region or he can add new lines to the region. 

To create a region data set, the user enters an EDIT command with the 
RNAME and REGSIZE operands. The system prompts with a line number. 
Then, if the user wants to operate on a new region in that data set, he 
can enter the REGION command with the name of the new region. 

If the user wants to create several region data sets in the same task, 
and he wants them all to have a maximum region name length of 12, he can 
first enter the DEFAULT command to set REGSIZE=12. He need not specify 
the REGSIZE operand in EDIT. All of his data sets will be created as 
region data sets with REGSIZE=12. 

Note ; Once a region data set is created, the user cannot change the 
maximum region name length (REGSIZE) for that data set. 

To terminate processing by the REGION command, the user must issue a 
command preceded by a break character after the text editor line number 
prompt. The CLP is set to the last line entered plus the value of INCR. 

Example ; The user issues the EDIT command to create a new region, and 
then he wants to operate on another new region: 

User ; edit dsnam,regnam,regsize=8 

Sys,User : 0000100 this is data 

0000200 _region regnam2 
System : 0000100 

The system has terminated processing of the first region, REGNAM, in 
data set DSNAM. It has initiated processing of region REGNAM2 in the 
same data set. 



RELEASE Command 

This command deletes the data set definition established by a previously 
issued DDEF command. It may also be used to separate and release one or 
all data sets of a given concatenation (see description of DDEF in Ap- 
pendix D for concatenation) , or to remove JOBLIBs from the user's pro- 
gram library list. 
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r t -i 

| Operation (Operand | 

, ^ - 1 

j RELEASE |DDNAME=data definition narae[,DSNAME=data set name] | 

J | [, {SCRATCH] HOLD}] {, {SCRATCH I HOLDJ] j 

DDNAME 

identifies the data set definition created by a DDEF command that 
was issued earlier in the current task. The name either identifies 
the data set definition to be released or identifies the concatena- 
tion from which one or all data sets are to be separated and 
released. 

Specified as ; the data definition name specified in a previous 
DDEF command. 

DSNAME 

identifies one data set in a concatenated series. Only this data 
set is to be released; the remainder of the concatenation is not 
affected. 

Specified as ; a fully qualified data set name. 

System default ; all data sets concatenated with the specified data 
definition name are released. 

Note; This operand is used only for concatenated data sets and has 
no meaning in any other situation. 

SCRATCH 

specifies the private volume (s) on which the affected datasetCs) 
resides is no longer required by the current task and may be dis- 
mounted or handed off to another task. This applies only to a vol- 
ume (s) for which no other data definitions exist. 

Specified as ; SCRATCH 

System Default ; See below under HOLD command. 

HOLD 

specifies that the private device (s) used for the volume (s) on 
which the affected datasetCs) resides is to be reserved for further 
use by the current task. This is implied for any device (s) in use 
for other data definitions. 

Specified As ; HOLD 

System Default ; 

for conversational task — SCRATCH alone 

for non-conversational task — HOLD alone. 

Functional Description ; RELEASE deletes the information defining the 
data set for either a public or private data set. It also may release 
for other use volumes and I/O devices currently assigned to a specified 
private data set. If the data set is open, it is closed before the 
defining information is deleted. 

Wnen the specified data definition name applies to the data set defini- 
tion of a JOBLIB, the JOBLIB is removed from the JOBLIB chain, and the 
definition of the data set is deleted. 

When the data set name of a concatenated data set is specified, that 
data set is released and dropped from the concatenation. The rest of 
the concatenation remains unchanged and may still be referenced by its 
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data definition name. If DDNAME refers to a concatenation , and DSNAME 
is not spcified, the user is prompted to enter a DSNAME. 

A RELEASE command with the DSNAME parameter specified must fce issued for 
each data set to be released from a concatenation. 

When there is more than One data set in use on the private volume being 
released, the device that contains the volume is not released until a 
RELEASE coirmand has been issued for the last data set on that volume. 

When the user specifies DDNAME for a data set on a public volume, the 
definition of the data set is deleted, but the device is not released. 

Programming Notes ; The RELEASE coirmand does not erase or uncatalog. 
The user should issue a RELEASE coirmand when a data set is no longer 
needed in a task. He must redefine the released data set when he wishes 
to refer to it again. 

The LOGOFF command releases all data definitions in your task. 

Examples : 

1. The user wants to release a private data set identified by DDNAME 

INGO. 

User ; release in go 

The system deletes the current definition of the data set. 

2. The user wants to release a concatenated data set that has three 
data sets (DTAB1, DTAB2, and DTAB3). The associated DDNAME is 

TABLES. 

User ; release tables 

The system prompts the user to enter a DSNAME. 

User ; dtabl 

Sys,User ; release tables, dtab2 

Sys,User ; release tables ,dtafc3 

3. The user wants to release a concatenated data set (TURN9) from a 
concatenation with DDNAME OVERT. 

User ; release overt ,turn9 

The system releases TUFN9 froir the concatenation. 

**. The user wants to release a job library with DDNAME PROGTEST. 

User ; release progtest 

The system removes the JCBLIB from the JOBLIE chain. 

5. The user wants to release DDNAME SAM f on a private volume. Be 

wants to release the volume, but hold the device. He can enter ei- 
ther of the following; 

User ; release sam, , scratch, ho Id 

or 

User ; release s am,, hold, scratch 
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Operational Note s The following chart indicates volume and device dis- 
po s it ion for the three valid combinations of SCRATCH and HOLD. It must 
be remembered that SCRATCH ia ignored foi: any volume mounted for another 
DDEF, and HOLD is assumed for any device on which a volume is mounted 
for another DDEF. 



(1> 



OPTIONS 



SCRATCH 



HOLD 



I 



DISPOSITION 



j TAPE 



SCRATCH 



SCRATCH 



HOLD 
HOLD 



VOLUME 



DEVICE 



1 



--default according to task mode — 
logical dismount release (3) 
retain reserve 

logical dismount reserve 



OPTION 



rewind 

none 

rewind t 
unload 



CD = conversational default 

(2) = non~ conversational default 

(3) = non-conversational reservation from SECURE is released 



REMOVE Command 

This command deletes previously issued dynamic statements. CSee "Dynam- 
ic statement" under "Program Control* in Section 3 of Part II and the 
description of the AT command earlier in this part). 



j Operation | Operand 



JREMOVE ({statement number C f . ..] jALL}) 



statement number 

identifies a dynamic statement that is to be deleted. 

Specified as s the number assigned by the system when the dynamic 
statement was entered. 



ALL 



all PCS dynamic statements are removed. 

Specified as s ALL 



Functional Description : REMOVE permanently cancels all dynamic state- 
ments whose numbers are specified as operands. 

Caution s A REMOVE command cannot be used in a dynamic statement. 

Example s The user wants to remove dynamic statements 10 , 2, and 4. 

User i remove 10,2,** 
The system deletes the specified dynamic statements. 
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RET Command 

This coarmand changes the attributes that were assigned at DDEF time for 
a cataloged VAM data set. 



i 1 — —_ — — —— — 1 

| Operation | Operand | 

i. + . 1 

| RET |DSNAME=data set name ,RET= re tent ion code j 

DSNAME 

identifies the cataloged VAM data set whose attributes are to be 

changed. 



RET 



Specified as ; a fully qualified data set name. 

specifies the attributes to be changed. 

Specified as s P or T; C or Lj U or R, where: 

P - permanent storage 
T - temporary storage 
C - erase at CLOSE 
L - erase at LOGOFF 
U - unlimited access 
R - read-only access 

System default : one code must be specified. When T is specified, 
L is assumed; when P is specified, a null value is assumed for the 

erase option. 

Functional Description : The PET coirmand modifies the RET field in the 
data set descriptor CDSD) , which contains information regarding the 
storage type, deletion characteristics, and owner access attributes of 
the data set that were specified in a DDEF command or DDEF macro. 

Caution s At least one of the codes must be specified. Otherwise, the 

command is ignored. 

A user may not issue RET for a data set he is sharing. 

Even though the RET command has been invoked to give a user read-only 
access to a data set, he may still issue an ERASE comirand for that data 
set. 

A data set is not erased at logoff if a RELEASE command has been issued 
for it and the retention code has been specified as RET*T. 

programming Notes s When the user changes the attributes of a data set 
to permanent storage type (P) from temporary CT) , an effective null str- 
ing value is given to the deletion characteristic. When the access qua- 
lification is not specified, no change to access is made. 

Examples : 

1. The user wants to alter the attributes of data set ETHPRG, which is 
temporary and unlimited and is to be erased at LOGOFF to permanent 

and read-only. 

User ; ret ethprg,pr 

The system changes the attributes of ETHPRG to permanent and 
read-only. 
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2. The user wants to change the attributes of a permanent data set, 
TEST1, to foe erased at CLOSE. 

Users ret testl f c 

The system changes the attributes so that the data set will be 

erased at CLOSE* 

REVISE Command 

This command specifies a line or range of lines in the current data set 
or region which are to be deleted and replaced. 



N2 



[Operation (Operand j 

(. _+___________- . 1 

(REVISE | CNl^starting line] £ ,N2~ending line] C ,INCR= increment] j 

Nl 

identifies the line or first of a range of lines to be deleted, and 
subsequently replaced. 

Specified as g a one- to seven-digit decimal line number that may 

be absolute or relative* 

LAST - last line in the current region. 

System default : the value of the CLP. 

identifies the last in a range of lines to be deleted and subse- 
quently replaced* 

Specified as ; a one- to seven-digit decimal line number that may 

be absolute or relative. 

LAST -- last line in the current region. 

System defaul t: the value of Nl. 

INCR 

designates the increment to be used for the replacement lines. 

Specified as s from one to seven decimal digits. An all-zero in- 
crement is not valid* 

System default ; 100. 

Functional Description : REVISE first deletes the specified line or 
range of lines and prompts the user with line numbers for the replace- 
ment lines. When the user enters a line and presses the RETURN key, 
REVISE continues line-number prompting until the range specified by Nl 
and N2 is completed, or a command preceded by a break character is 
executed. When REVISE is followed by an EXCERP1 command (preceded by a 
break character), the lines from the data set referenced by EXCERPT are 
inserted in the specified range. CLP is set to the last line entered 
plus the value of INCR» If the result exceeds the next existing line, 
CLP is set to the next existing line number. 

When REVISE is not followed immediately by EXCERPT or a data line or 
lines, the command deletes the specified lines and sets the CLP to Nl. 

The user is prompted if the number of insertion lines exceeds the upper 
limit specified by N2„ 
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Caution : A language- processing command (EDIT, PROCEEF, or PLI) must be 
issued before the command is issued. 

Programming Notes ; REVISE is functionally equivalent to an EXCISE com- 
mand followed by an INSERT or EXCERPT command. 

If the user specifies a nonexisting line in the REVISE command, or if 
the line specified for Nl or N2 is the last line in the data set or 
region, new lines are inserted into the data set with the starting line 
number and line-number increment specified in the REVISE command. In 
this case, REVISE operates the same as INSERT. 

Examples : 

1. The user wants to replace the existing line 300 with data lines, in 

increments of 10. 

User : revise 300,incr=10 

Sys,User : 0000300 first replacement line 

System : 0000310 

2. The user wants to replace lines 200 through 550 with data lines, in 
increments of 100. 

User : revise 200,550 

System : 0000200 

Note : The increment of 100 is the default value of INCR. If more 
than four lines are inserted, the fifth line number will exceed the 
N2 value (assuming the next-higher line number is 600 or less) . A 
diagnostic message is displayed and the command is terminated. 



RTRN Command 

This command returns control to the user in command mode. All inter- 
rupted source lists are canceled. 

I T 1 

| Operation | Operand J 

j. +__ , 

J RTRN J j 

Note : There are no operands. 

Functional Description : The RTRN command, entered after the user causes 
an attention interruption (by pressing the ATTENTION key), returns con- 
trol to the user at the terminal. The user is then in command mode, and 
the interrupted source lists are forgotten. All SIR and AETD macro in- 
structions are deleted. 

Example i The user has interrupted a program or command string. Be does 
not want to resume processing in that program or command string. He 
enters: 

User : (presses ATTENTION) 
System ; ! 
User : RTRN 

The system terminates processing of the interrjpted program or command 
string and returns control to the terminal. 
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SECURE Command 

This corcmand reserves all devices that are required for private vol-aires 

during execution of a nonconversational task. 



j Operation joperand j 

| | /(TA==n umber of devices! # type of device])! | 

(SECURE |J M,...] | 

J |MDA= number of devices [ 9 type of device])] | 

Notes: TA an,d DA must be specified in keyword format. At least one of 

the operands must be specified. 



System programmers should see System Programmer's Guide for special 
operands . 

TA 

designates the number and type of tape devices requested. 

number of devices 

Specifi ed as : a one- or two-digit decimal number. 

Sy s tern d e Pa u i 1 , no tape devices are reserved, 
type of device! 

Specifie d a^ s 

7 - s ev en - z t ack t a p e , d at a con ver ter not required. 
7DC - sever,- track tape with data- converter feature. 



9D2 - 9-track tape 
9 D 3 - 9-track tap€ 
9DU - 9-t raok t iipf 



with 800 bpi capability 

with 16 00 bpi capability 
3 with 6250 fcpi capability 



DA 



System default; the type of tape specified at system generation. 

designates the number aid type of direct access devices requested. 
number of ckrv.L2«h 

Specif ied aSi a one- or two-digit decimal number. 
Systeir de faul t; no direct access devices are reserved. 

type of device 

Spe cified as s 

2311 - disk 3330 - 3330-1 disk 

2314 - disk 333B - 3330-11 disk 

Systero default s the type of direct access device specified at sys- 
tem generation. 

Functional Des cription: SECURE reserves the specified devices as a 
group, so that* the task can proceed without pause, when the entire group 
is available. Any waiting for devices occurs when the SECURE comirand is 
being executed. The devices that are reserved reirain assigned to the 
task until the task logs off, or until a RELEASE command is specified 
with the SCRATCH option only. 
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Caution : The user must provide a SECURE command iirirediately after the 
LOGON command in every data set that is to be executed as a separate 
non conversational task and that refers to one or more private volumes. 
This is also true for tasks initiated by EXECUTE or BACK. If SECURE is 
not specified immediately after the LOGON command, the user's task is 
terminated. 

Programming Note ; SECURE applies to non conversational tasks only ; it is 
never executed in a conversational task. 

Examples : 

1. The user has prepared a task for nonconversational execution that 
requires one 3330-11 disk drive and three tape units (at 160 bpi), 
all for nine-tape. He prepares this SECURE command for insertion 
immediately after the LOGON command: 

secure (ta=3, 9D3) ,da=l,333B) 

2. The user's nonconversational task requires three 3330-1 disk drives 
and seven tape units, three of them seven-track, and the remainder 
nine-track (800 bpi). He prepares this SECURE command: 

secure (da=3,3330) , (ta=3,7) , (ta=4,9D2) 

SET Command 

This command changes the contents of a data location. 

j Operation | Operand | 

| SET j {data loca tion=value> [,...] | 

data location 

identifies a location whose value is to be changed. 

Specified as : a symbol, hexadecimal location, register, or command 

symbol. 

value 

specifies the value to which the data location is to be set. 

Specified as : an arithmetic expression, a constant, a character 
string, or the name of a data location. 

Functional Description : The SET command changes the contents of each 
specified data location to the value specified on the right of the cor- 
responding equal sign. 

The expression is evaluated, using integer, floating-point, or logical 
arithmetic. All constants in an expression must agree in type. All 
variables should agree in type but, if they do not, the type is assumed 
by the system to be an integer (one, two, or four bytes), floating-point 
(eight bytes), or hexadecimal (length defined implicitly or explicitly). 
After SET is executed, a data reference in a subsequent command results 
in obtaining the new value. 

Cautions : Although the user may set one complex variable to the value 
of another complex variable, no arithmetic can be performed between two 
complex variables. This restriction also applies to variables in 
packed-decimal number format. 
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The operand of the SET command may never refer to read-only or privi- 
leged storage. Since the FORTRAN compiler automatically assigns the 
read-only attribute to the control section containing instructions and 
constants, the FORTRAN user cannot refer to the CSECT as the data loca- 
tion of the SET command. When the expression contains more than one 
operand, the lengths of the operands must be compatible (that is # 
floating-point variables must be four or eight bytes; integer and logi- 
cal variables must be one, two, or four bytes). The length of the re- 
sult of the expression should agree with the length of the data location 
to the left of the equal sign. 

The format X , ClC2C3 i is acceptable for hexadecimal representation; the 
format •ABC* gives the same result; however, C'ABC' results in a diag- 
nostic message. 

Examples : 

1. The user wants to set two four-byte variables with qualified 
internal symbols of I and K to the values of 33 and 176, 
respectively. 

User ; set i=33,k=176 

The system sets the values. 

2. The user wants to set a six-byte field to read "system." 
User : set f ield=" system* 

The system sets the value at FIELD to E2E8E2E3C5D4. 

3- The user has two variables that he wants to add, placing the result 
in general register 8. Both variables were assigned hexadecimal 
types in the assembly program. Variable X was defined as two bytes 
in length; variable Y as eight bytes. The user wants to refer only 
to the first two bytes of Y. 

User ; set 8r=x+y.(0,2) 

The system sets the values. 

4. The user wants to set a one- byte variable, SAM, to the binary value 
, 10010011 , : 

User : set sam=b , 10010011 , 

The system sets the binary value. 

5. The user wants to set the value of a variable (A) to 1. He wants 
this value entered in his user profile. He enters: 

User ; set a=l 

Sys,User ; jorofile csw=y 

SHARE Command 

This command allows the user to share another user's data sets. 



| Operation [Operand j 

| SHARE |DSNAME=data set na me, USERID= owner ■ s user identification | 

| | [, OWNER DS=C owner's data set nameI*ALL>] | 
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DSNAME 

specifies the name by which the sharing user refers to the data set 
or data sets which he is going to access. This data set name 
becomes an entry in the sharer's catalog. 

Specified as ; a fully or partially qualified data set name. 

USERID 

identifies the owner of the data sets to be shared. 

Specified as ; the owner's user identification. 

OWNERDS 

identifies the data sets to which the user wants access. 

Specified as : the fully or partially qualified data set name as- 
signed by the owner. 

♦ALL - the user wants access to all the owner's cataloged data 
sets. 

System default : *ALL. 

Functional Description : An entry is made in the sharer's catalog, under 
the data set name specified by DSNAME, pointing to the owner's catalog 
entry for OWNERDS. The pointer is to the intial entry in the owner's 
catalog if "*ALL W is specified. 

The user may issue the SHARE command before the owner has issued the 
PERMIT command to grant access to his data set or data sets. The PERMIT 
must be issued, however, before the user can reference or access the 
owner's data sets. 

Cautions : The OWNERDS operand roust have the same value as the DSNAME 
operand the owner uses when issuing his PERMIT command. 

To avoid the possibility of violating the length restriction for data 
set names, the sharer should not enter a DSNAME operand that is longer 
than the OWNERDS operand. Similarly, if "♦ALL" is used, the sharer must 
be certain that the total number of characters for DSNAME plus any data 
set name in the owner's catalog does not exceed 35. 

Programming Notes : When CWKERDS in the owner's catalog is a partially 
qualified data set name, the sharer refers to each shared data set by 
appending to the data set name specified by DSNAME the same rightmost 
name or names that the owner assigned (in his catalog) to that data set. 
For example, if OWNERDS specifies a catalog entry for the partially 
qualified data set name A.B, and the sharer gives W.X in the DSNAKE 
operand, he refers to the owner's data set A.B. CD as W.X. CD. 

The sharer's catalog entry for a shared data set is not removed when the 
owner erases or deletes that data set from his own catalog. Sharers 
must update their own catalogs by using the DELETE command. 

Examples ; 

1. The user wants to reference, by means of the name GREYX, the cata- 
log entry for data set M.L0G1, to which he has been granted access 
by owner MICHAEL 2. 

User : share greyx,michael2,m. logl 

The system makes the entry in the sharer's catalog. 

238 



2. The user has been granted access to all of owner J0SEPH2<i c s cata- 
loged data sets. He wants to use the name Z to link his catalog to 
the initial entry in JOSEPH24's catalog. 

User ; share z f joseph2** # *all 

The system makes the entry in sharer - s catalog. 

The user now can reference specific data sets belonging to 
JOSEPH24. For instance, if J0SEPH2«» , s catalog has data sets name 
A. A, A.B f and A.C f the user refers to them as Z.A.A, Z.A.B, and 
Z.A.C, respectively, 

SPACE Command 

The SPACE command causes the SYSOUT to be spaced the specified number of 
lines • 

r _ T «, 

| Operation | Operand | 

^ _ H f 

j SPACE JNUMLINES= (number lines to space) | 

L J J 

NUMLINES 

number of lines to space the SYSOUT 

Specified As : 

1 - space 1 line (insert 1 blank line) 

2 - double space (insert 2 blank lines) 

3 - triple space (insert 3 blank lines) 

System Default : 1 space 1 line. 

Functional Description : The SPACE command module issues a ■GTWRC* macro 
with the appropriate carriage control character to cause the specified 
number of spaces (blank lines) to appear in the sysout. 

Example : User wishes to separate the output from comirand A f from the 
output of the next command B. 

User : command A 
SPACE 3 
command B 



System : .•...output from A..... 

(three blanks lines inserted 
by the SPACE command) 

output from B 

STACK Command 

This command displays all active, user-invoked module names displayed in 
descending order beginning with the most recent module name. 

| Operation | Operand j 

k -I 1 

j STACK j | 

L J J 
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Note ; There are no operands. 

Functional Description : The system displays the names of all user- 
invoked modules that have been interrupted and are now saved for later 
execution. The most recent module is displayed first. If a SIR routine 
is active, the user is notified* the SIR module name does not appear in 
the module -name display. 

Example : The user has interrupted his source list. He wants to see 
what modules (or commands) he has interrupted: 

User : stack 

The system displays the active module or command names. The name 
at the top is the roost recently interrupted program. 



STET Command 

See "DISABLE, ENABLE, POST, and STET Commands.* 



STOP Command 

This command suspends execution of an object prograir and optionally (if 
LIMEN=I) prints out the current instruction location and program status 
information. 

| Operation | Operand | 

| STOP I 1 

Note: There are no operands. 

functional Description : The STOP command causes the output of two units 
of information at the user's terminal. 

1. Current location in the object program? that is, the instruction 
location, expressed symbolically, at which execution is stopped. 

2. Program status information (for example, the condition code, pro- 
gram mask, and instruction length code). 

If the internal symbol dictionary (ISD) is not available, the symbolic 
instruction location is expressed in terms of the control section name 
and a hexadecimal offset. If the ISD is available, the location is 
expressed in terms of an internal symbol plus hexadecimal offset. The 
nearest internal symbol, plus an offset (in bytes) is output for assem- 
bler language programs. For FORTRAN programs, it is the nearest state- 
ment numoer, with an increment to indicate which statement after the 
numbered statement has control. 

Caution: STOP should appear last in a dynamic statement, because any 
subsequent commands are ignored, and no diagnostic is issued. 

Programming Note : After an object program has been halted, the user can 
cause resumption of execution with the GO command. 

Examples : (LIMEN has teen defaulted to I) 

1. The user wants to learn the status of bio program when execution 
reaches a specified point. 
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User : at ftnpgm.100 (4) jstop 

When execution reaches FTNPGM. 100( «*> , the system replies by giving 
statement number assigned to above statement. The system also 
gives program status information. 

2. The user interrupted his FORTRAN object program during execution by 
pressing the ATTENTION key at his terminal. He wants to know which 
statement was being executed. The user requested am ISD as an 
option during compilation. 

User : stop 

System : STOP AT FTNPGM. 100 ( «0 PSW 110 0003E0F4 

STRING Comirand 

This command displays commands and program calls not yet executed from 
the current source list. 

| Operation | Operand j 

(STRING I | 

Note : There are no operands. 

The STRING command works only if it is issued immediately following an 
attention interruption. 

Functional Description ; STRING displays statements, from the current 
source list, that have not yet been processed. 

If the user issues an attention interruption while the system is execut- 
ing a PROCDEF, he receives a "PROCDEF ACTIVE" message. Then, if he 
issues an EXIT, or presses the carriage return (to return control to his 
source list), the remaining commands in the PROCDEF are executed before 
the displayed source list is processed. The individual commands, in the 
PROCDEF, are not displayed fcy SIRING. 

If the system is processing an OBEY when the STRING command is issued, 
the user receives an "OBEY ACTIVE" message before the source list is 

displayed. 

Example : The user interrupts his program, and then he wants to see what 
commands have not been processed from the source lists 

User : (presses the ATTENTION key) 

System : 1 
User : string 

The system displays unprocessed commands from current source list. 

SYNONYM Command 

This command renames commands or coirmand statements, keyword operands, 
and PCS operands. 

| Operation I Operand l 

|. + . , 

| SYNONYM j (term= [value ]}(,... ] [ 
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term 

designates the new name of a command, keyword, or PCS expression. 
This is the synonym. 

Specified as ; a normal or quoted string f roir one to eight 

characters. 

value 

specifies the value of the term that is to be used when the term is 
referred to. This value overrides any string value previously 
equated to the term. This is the old name. 

Specified as ; a normal or quoted string? maximum length, 24 ** 
bytes. 

System default : any previously assigned synonym term is deleted. 

Functional Description : The system adds, replaces, or deletes entries 
in the user's dictionary, according to the parameters of the SYNONYM 
command. When the user has assigned a value to an operand with the 
SYNONYM command, he can then enter a command or parameter which has a 
synonym value and the system uses that synonym value rather than the 
command or parameter entered. Synonyms may be equated to other 
synonyms . 

The synonym and its value are only valid for the remainder of the cur- 
rent task, unless the user's task profile is made permanent by his issu- 
ing the PROFILE command. (See the description of the PROFILE command in 
Section 6 of Part II) . 

Caution: The user should te careful to avoid eventually equating a 
synonym to itself when creating a synonym chain. This creates a loop, 
which is broken by the system after an excessive number of synonym 
searches. 

Programming Note : The SYNCNYM command can be used to delete a synonym 
entry that was previously defined. The user enters the SYNONYM command 
and equates the operand he wants to delete to a null string by pressing 
the carriage return (SYKCNYM A=). When a user creates a synonym, he can 
still refer to the command, operand, value, or expression by its origi- 
nal name. 

Examples : 

1. The user issues this command statement. 
User : synonym a=fc,t=c,c=d,d=e? a 

The system calls the procedure or program named E. 

Note : The value of last SYNONYM issued overrides previous values. 

2. The user executes a series of commands* 

synonym pg=pgapars 
progra pg=x,y,z 

The first SYNONYM ccromand defines a synonym for one of the valid 
keywords of PROGRA. When the command PROGRA (which was previously 
defined by the user as a BUILTIN) is called, synonym substitution 
occurs, and the command is executed ass 

progra pgapars=x,y,z 
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3. The user creates an abbreviation for the EXECUTE command. 

synonym x=execute 

when he enters X as a command, the system invokes the EXECUTE 
command . 

4. The user wants to nullify the synonym created in Example 3 above: 
synonym x= 

TIME Command 

This command establishes the time during which a task can be executed. 



j Operation j Operand 1 

^ 4 1 

| TIME j [MINS=minutes] | 

MINS 

specifies the number of minutes of execution time before the timer 
interrupts the task. 

Specified as ; a decimal number greater than and less than 451. 

System default : the value assigned at system generation. 

Functional Description : TIME is invoked automatically as a part of the 
initialization of the user's task, when a time specified at system 
generation is used to set the timer. When the TIME command is issued by 
the user, the value of the timer is reset. The value of the timer is 
always the value of the last- issued TIME command. Time is only accumu- 
lated against this interval while the user f s task is actually executing. 
When the task is in a WAIT state or the time- slice has expired, no time 
is charged. 

At the end of the time, if the task is conversational, a message is is- 
sued, and control returns to the user in command mode. If the task is 
non conversational, the task is terminated abnormally. 

Programming Notes : The user may issue the TIME command at any time. 
The maximum value he can specify is 450 (7 1/2 hours). 

Example : The user wants to set a four-minute time limit for execution 
of his task. 

User : time 4 

The system. resets the timer. 

TRANSLAT Command 

The TRANSLAT command is used to set the user's input and output transla- 
tion tables. 



— T" 



\ Operation | Operand | 

^ +_ j 

[TRANSLAT | TYPE, FROM, TO, USN,CP | 
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TYPE 

specifies which table is to be set, input or output. 

Specified As : 

OUT or O for output translation table 
IN or I for input translation table 

FROM 

is a list of characters which are to be translated to the 'TC 1 
character. Quotes are required as defined in rules for character 
strings. 

Specified As : A single character or string of characters enclosed 
in parentheses and separated by commas. Hexadecimal values should 
be in the X'NN - format where NN is the hexadecimal value. 



TO 



USN 



CP 



is the character the 'FROM - characters are to be translated to. 

Specified As : A single character — quotes are required as defined 
in the rules for character strings — or a hexadecimal value in the 
format X*NN - where NN is the hexadecimal value for the character. 

for the MTT Administrator, the number of the user for whom the com- 
mand applies 

Specified As : A decimal number between and 128. 

System Default : task owner's sysin/sysout. 

specifies which sysin or sysout is to be changed — currently not 
supported. 



Functional Description : Each sysin/sysout has a set of translate tables 
which users can tailor to their own terminal. All system input and out- 
put is translated by these tables. The user can achieve the same result 
by using SYSTRIN and SYSTROUT with the MCASTAB command. The difference 
between TRANSLAT and the SYSTRIN/SYSTROUT mechanism is that the TRANSLAT 
change is effective immediately and the SYSTRIN/SYSTROUT tables are not 
changed. 

Example : The user wishes to change all slashes (/> to commas C # ) on 
input: 

User : TRANSLAT TYPE=I,FROM=/, T0= t , • 
User : DISPLAY ■/////• 
System : f 99 , 9 

Now on output the user wants all coirmas to be printed as slashes: 

User : TRANSLAT TYPE=CUT,FRON= f , ■ ,T0=/ 
User : DISPLAY ■ /////■ 
System : ///// 

On output the user decides to have certain unprintable characters 
printed as a period (.): 

User : TRANSLAT TYPE=0, FRCM=(X , 00 - ,X '01 • , X* 02 f f X f 20 1 ,X f 21 f , X § 22 - f 

X'23 1 ,X % 2t* 9 > ,T0=". » 

Now, any of the ■ FROM* characters will be printed as a period (.) on 
the sysout. 
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TRAP Command (System 370 Only) 

This command requests notification when execution of an object program 
causes certain events to occur. TRAP also designates the class of event 
and range of object program instruction locations in which the coirmands 
following TRAP in the dynamic statement are to be executed. 

Storage Class: 



(Operation (Operand j 

|_ +-- 1 

| TRAP j (FETCH 1 STORE I REF> f [location! : location} 3 | 

General Register Class : 

I Op er at ion | Operand ] 

I H 4 

JTRAP |GR f CnR, ...|nR:nR} | 

i J . — . J 

Branch Class: 

| Operation | Operand | 

I -H — 4 

[TRAP 1 BRANCH ( , location (: location } C f lo cation* : location} >} | 

FETCH 

Specifies that TRAP is to monitor instruction fetches within the 
location range specified. 

SIORE 

Specifies that TRAP is to monitor data stores within the location 
range specified. 

REF 

Specifies that TRAP is to monitor both fetches and stores within 
the location range specified. 

GR 

Specifies that TRAP is to monitor changes in the contents of the 
general registers specified. 

BRANCH 

Specifies that TRAP is to monitor successful branches from the 
first location range specified into the second location range 
specified. 

location 

Specifies location or range of locations within the task's virtual 
memory. 

Specified as : An internal or external symbol , with or without off- 
set or subscript, or a hexadecimal address. 

nR 

Specifies a general register or range of general registers. 

Specified as : An integer from to 15 inclusive. 
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Functional Description : TRAP becomes effective, subject to the ranges 
specified in the command , at the end of the execution of an instruction 
when one or more of the following events has occured: 1) instruction 
fetch, 2> data stored, 3) change in the contents of a general register, 
4) successful branch. A command statement containing a TRAP is called a 
dynamic statement. Only one TRAP may be included in a dynamic state- 
ment, and it must be the first command in the statement. The system 
assigns a number to each dynamic statement. This number may be 
referenced by the REMOVE command. Only one TRAP in each of the three 
classes may be outstanding at any point in time. The system will auto- 
matically remove a TRAP statement if an attempt is* made to issue more 
than one TRAP in one class. 

Coincident events may occur and are processed in the following orders 

1. Storage 

2. General Register 

3. Branch 

Unprocessed coincident events are lost if program execution is resumed 
by a CALL or BRANCH statement. 

When a TRAP command is executed, a standard output (including the in- 
struction location where the command became effective, program status 
information, and the dynamic statement number) is presented to the user. 
If LIMEN is not set to I, only the dynamic statement number is dis- 
played. The program status information includes the virtual storage 
location of the instruction being executed, the instruction length code, 
the condition code, and the program mask. Execution of a TRAP coinrand 
is disabled during execution of privileged system programs. Also, SVC 
instructions and instructions that cause program interrupts to occur 
will not cause a TRAP command to be executed. 

The counter, referred to by the special character %, is assigned to a 
dynamic statement and is incremented by one when the TRAP statement is 
executed. The counter is incremented even when the dynamic statement is 
conditional. The counter may be used as an operand in other PCS com- 
mands within the statement. The TRAP command alone will interrupt, but 
not stop, program execution. 

Programming Notes : If TRAP specifies FORTRAN statement numbers as loca- 
tions, the numbers must designate executable FORTRAN statements and not 
format statements. The determination of whether a successful branch 
falls within a specified location range in a TRAP branch statement is 
performed interpret ively by PCS for all successful branches. Therefore, 
this statement should be used with care. 

Example : The user wants to be informed when his program alters the con- 
tents of general register 12. 

To accomplish this. 

User : trap gr,12r 
System : 0001 

Execution of the program begins. When general register 12 is altered, 
the user is notified. For example, the system prints out the following 
line (assuming LIMIN=I) : 

System : TRAP SWTC. (X f 2E - > PSW 2 F 00335032 0001 

In this statement 

SWTC.(X , 2E , > is the location of the instruction that altered gener- 
al registet 12. n that altered general register 12. 
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PSW 2 F 00 3350 32 is the program status. 

0001 is the dynamic statement number assigned by the system. 

Note: If LIMEN had not been set to I f only 0001 would have been printed 
by the system. 

TV (Tape to VAM) Command 

This command retrieves and writes into a VAM volume, one or more data 
sets previously written on magnetic tape by the VT command. 



j Operation [Operand j 

TV JDSNAMEl=tape data set name C ,DSNAME2=vam data set name],*, 

| [,OVERLAY= Y|N1 
| [,RETAIN= Y|N1 

I C,FROMID=user identification] 
j £,TOID=user identification] 

* This position has no meaning for the TV command but is present in the 
BPKDS for ease of coding. 

DSNAMEl 

identifies, in the absence of a previously defined DDEF command 
with the DDNAME of DDTVIN, an existing physical sequential data set 
residing on a nine-track tape that is to be restored to VAM on di- 
rect access storage. The data set must already be defined by a 
DDEF command in the current task or must be cataloged. 

Specified as : the fully qualified name with which the data set was 
defined or cataloged; if when using the VT command this name was 
preceded by an asterisk, this data name must be preceded by an 
asterisk here. 

Where a previously defined DDEF command with a DDNAME of DDTVIN 
exists, it identifies one of all data set names that are to be 
restored to direct access storage. 

Specified as : the fully qualified data set that will be located on 
the volume(s) specified by the DDEF command with the DDNAME of 
DDTVIN, or 

♦ALL; all data sets on the volumeCs) specified by the DDEF command 
with DDNAME of DDTVIN will be processed. 

DSNAME2 

specifies the name under which the data set will be restored. This 
data set does not have to be defined in the current task unless the 
data set is to be restored to a private VAM volume. 

Specified as : a fully qualified data set name, or *DSNAME1, the 
data set name that was retained on tape is to be used for the name 
of the data set that is to be restored on direct access storage. 

System default : a name will be generated by the system in the 
form: 

$D. Dnnnn. dsnamel 

and used as the VAM data set name. Truncation, if required, will 
be performed from left to right to allow the insertion of $D. Dnnnn. 
The $D qualifier will allow the user to reference all such data 
sets created by TV by partially qualified data set name. 
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OVERLAY 

specifies that the output data set will be overlayed if it already 
exists and the data set attributes (DSORG, RECFM, LRECL, RKP, KEY- 
LEN) for the two copies are the same. 

Specified as : Y - overlay to be made. 

N - overlay not to be made. 

System default : N - no overlay to be made. 

RETAIN 

specifies that the change and reference dates of the input data set 
are to be retained with the output data set. 

Specified as : Y - input dates are to be retained. 

N - current dates are to be retained. 

Systeir default : the current dates will be retained with the data 
set copy. 

FROMID 

specifies the user identification prefixed to the name of the input 
data set. 

Specified as : One-to- eight alphameric characters , or *ALLj all 
userids retained on the tape are to be processed. 

System default : the user identification associated with current 
task is assumed. 

TOID 

specifies the user identification to be associated with the output 
data set. 

Specified as : For a user, this must be the user identification as- 
sociated with the current task. 

For the system manager, any user identification currently joined to 

the system. 

For a system administrator, any user identification currently 
joined to the system by him. 

♦FROMID? the original user identification saved on tape is to be 
used. It must be user identification currently joined to the sys- 
tem and one which the user has authority to specify. 

Functional Description : For each successfully copied data set, the user 
is informed of the names of the input and output data sets, and the file 
sequence and volume serial numbers used. Any failure to copy success- 
fully results in a diagnostic message and cancellation of the command. 

Generation indexes will be created as necessary for generation data 
groups not previously defined in the system. 

The DDEF command with DDNAME of DDTVIN must specify PS as the data set 
organization (DSORG), nine-track tape as the residence volume (UNIT) and 
unlabeled tape (LABEL). 

An entire tape may be restored to a private VAM volume through the use 
of a DDEF command with DDNAME or DDTVOUT. This DDEF irust specify VAM 
data set organization (DSCRG) and identify the device type (UNIT) and 
volumes (VOLUME) required to contain the tape data sets. The DDEF will 
be used only when a DDEF with DDNAKE of DDTVIN is present and DSNAME1 is 
specified as *ALL. 
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Note : When all data sets (DSNAMEl^ALL) on a tape volume are to be pro- 
cessed, DSNAME2 must be specified as *DSNAMEL or be defaulted. 

Examples : 

1. The user wants to restore data set ABC onto a private VAM volume 
(MYV0L1) as XYZ. 

User ; ddef duna,vp,xyz,unit=(da,2314 ) ,volume=(,myvoll) 
tv abc,xyz 

System ; (copies ABC onto private volume MYV0L1 as XYZ) 

2. The user wants to locate data set SOURCE. MYDS on volume MR9024 and 
restore it to public storage as SOURCE.MYDS. The data set name LOG 
is used to fill the DDEF requirements for a dsname value. It may 
be any data set name that will allow DDT VI N to be defined m 

User ; ddef ddtvin,ps,log,unit=(ta,9) ,Volume=( ,MR902*D ,- 
LABEL=( ,nl) jtv source. myds ,*DSNAMIl,overlay=y 

System ; (locates SOURCE.MYDS and restores it to public storage) 

3. The user wants to restore all data sets from volume MR9024. 

User ; ddef ddtvin,ps,zip,unit=(ta,9 ) ,volume=(MR9024) ,- 
LABEL=(,nl);tv * all ,*DSNAME1 , over lay=y 

System ; (restores all data sets from volume MR9024) 

UNLOAD Command 

This command removes a module and all other modules tc which it impli- 
citly or explicitly refers from virtual storage. 



[Operation | Operand j 

| UNLOAD I [NAME=entry point name] | 

NAME 

identifies the module to be unloaded. 

Specified as ; a module name or external entry point without 
offset. 

System default ; the last module referenced by the system is 
unloaded (see below). 

Functional Description ; The UNLOAD command invokes the dynamic loader, 
specifying the explicit symbol that is specified in the NAME operand of 
the command. If NAME is not specified, the last module referred to by 
one of the following commands is unloaded; PLI, ASM, LNK, FTN, LOAD, 
UNLOAD, CALL with a specified module name, or an implicit call. 

The specified object module is unloaded from virtual storage. Any 
object modules that are referred to only by that specified module are 
also unloaded. 

The specified module is not unloaded if other object modules are cur- 
rently referring to it. The user is informed of this in a system mes- 
sage, so he can re-issue the UNLOAD command later, if desired. 
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Caution ; When a module is unloaded , all PCS AT statements are reiroved 
for that module (reloading the module does not replace these AT state- 
ments). The user is notified of the AT statements that are removed. 
However, the AT number counter is not reset to unless all AT state- 
ments are removed from all modules. 

Programming Note : An object module that is called by a direct call is 
not automatically unloaded upon exit. The UNLOAD comnrand can be used to 
remove these modules from virtual storage. 

Example ; The user wants to unload a module named ABC. 

User ; unload abc 

The system unloads ABC and all modules to which AEC implicitly or expli- 
citly refers. 

UPDATE Command 

This text-editing command adds or inserts the data lines entered at the 
terminal into the current data set or region. 

1 Operation | Operand j 

| UPDATE j | 

Note : There are no operands. 

Functional Description : UPDATE unlocks the keyboard to prompt the user 
to enter a line number, a blank or tab, and data. The lines of data 
entered by the user are inserted in the current region at the specified 
line number. If the user specifies a line number that already exists in 
the region, the new line overlays the old line. 

UPDATE is terminated when a command preceded by an underscore is issued. 
The status of the CLP does not change during execution of UPDATE. 

Cautions : When issuing insertion lines, one space or tab must be 
entered between the line number and the text of the line. Excessive 
tabs or spaces are treated as text. 

A language-processing command (EDIT, PROCDEF, or PLI) must be issued be- 
fore the command is issued. 

Programming Notes : UPDATE is equivalent to a series of INSERT or JREVISE 
commands. UPDATE is intended primarily to allow the insertion of arbi- 
trary line numbers; INSERT and REVISE are designed for consecutive line 
insertions. 

Example : Assume the current line location is in the region ABC, which 
contains 10 lines, numbered 100 through 1000 in increments of 100. The 
user wants to insert a line between lines 200 and 300 and one between 
lines 600 and 700. He also wants to replace line 500 with a new line. 

User s update 

System : (unlocks the keyboard) 

User : 250 datal 

System : (inserts line 250 between' 200 and 300 and unlocks the 

keyboard) 
User : 650 text 
System : (inserts line 650 between 600 and 700 and unlocks the 

keyboard) 
User : 500 more data 

System ; (replaces old line 500 with new line and unlocks the 
keyboard) 
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User : _insert 1100 

System : (terminates execution of UPDATE, positions the CLP to 

line 1100, and prompts the user to enter line 1100 which 

does not yet exist) 

USAGE Command 

This command presents to the user the statistics accumulated in the sys- 
tem that relate to his use of system resources. 

| Operation | Operand | 

| USAGE J | 

Note : There are no operands. 

Manager's and Administrator's Guide and Systeir Pr o graroiYier g s Guide list 
special operands for managers , administrators , and system programmers. 

Functional Description : The accounting statistics for the specified 
user identification, which include, the user's ration (that is, the max- 
imum amount of each resource allowed for the user) 9 the accumulative 
statistics in the user table, and the usage statistics for the current 
task are tallied and presented to the user. Conversationally, the data 
set is presented at the terminal; nonconversationally, in the SYSCUT 
data set. 

The user's accounting statistics are displayed always. The accumulative 
statistics cannot be reset to zero without displaying all of the user's 
accounting data- Furthermore, the display of his statistics occurs be- - 
fore the accumulative data is reset to zero # although subsequent entry 
of the USAGE command displays the statistics with their new values* 

Three types of statistics are presented: accumulative statistics 
reflect total usage of resources from the time the user is joined to the 
system to the present, current statistics reflect usage during the pre- 
sent task, and the ration which reflects the maximum amount of a 
resource allowed for the user. The statistics displayed are summarized 
in Appendix H. 

The information is presented in the following formats 

/TEMP STOR=ration; current; accum 
/PERM STOR=ration; cur rent; accum 
/DA DEV=rat ion; current ; accum 
/MAG TAP=ration; current? accum 
/PRINTERS=rat ion; current; accum 
/RD-PUN=ration; current; accum 
/TSS TASKS=ration; current 
/BULKIN=accum 
/BULKOUT= accum 

/CPU TIME=ration; current; accum 
/CONN TIME=rat ion; current; accum 

Statistics with zero value are not presented. 

VT (VAM To Tape) Command 

This command copies a VAM data set to magnetic tape as a physical 
sequential data set. Used with the TV (TAPE TO VAM) command, VT allows 
the user to store VAM data sets on magnetic tape and retrieve them at a 
later time. 
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• ■ — i ■ ! 

Operand I 

DSNAMEl=vam data set namel ,DSNAME2=tape data set name | *D SNA** El 3 , 

£,ERASEDS1= Y|N] ,* , 

[,RETAIN= YIN) 

£,FROMID=user identification] 

[,TOID=user identification] 

l,CATDS2= YIN] 



* This position has no meaning for the VT command but is present in the 
BPKDS for ease of coding. 

DSNAME1 

identifies the cataloged VAM data set to be written on magnetic 
tape. 

Specified as ; a fully qualified data set name. 

DSNAME2 

specifies the name to be assigned to the magnetic-tape copy of the 
data set. 

Specified as ; a fully qualified data set name; if the name is pre- 
ceded immediately by an asterisk, the tape data set will not be 
cataloged, or 

♦DSNAME1, the copy is to retain the same name as the original data 

set. 

System default ; for the first VT command, the data set name given 
in the preceding DDEF command, with the EENAME of EDVTOUT is 
assumed. For subsequent VT commands, the tape data set name will 
be modified to the form of 

$T . Tnnnn . dsnamel 

and used as the tape data set name. Truncation of the given name 
to alio* the insertion of $T. Tnnnn (where nnnn is a unique number 
assigned by the system to assure data set uniqueness) will be from 
left to right. The qualifier $T will allow the user to reference 
all such data sets created by VT by partially qualified data set 
name. If this operand is specified as *ESNAME1 the tape data set 
name will be the same as the vam data set name and no cataloging 
will be performed. 

ERASEDS1 

specifies that the VAM data set is to be erased after the data set 

Specified as ; Y - erase after copy 

N - no erase after copy 

System default ; N - no erasure will be made. 

RETAIN 

specifies that the change and reference dates of the input data set 
are to be retained with the output data set. 

Specified as ; Y - input dates are to be retained. 

N - current dates are to be retained. 
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System default : the current dates will be retained with the data 
set copy. 

FROMID 

specifies the user identification prefixed to the name of the input 
data set. 

Specified as : For a user, this must be the user identification as- 
sociated with the current task. 

for the system manager , any user identification currently joined to 
the system. 

For a system administrator any user identification currently joined 
to the system by him. 

System default : the user identification associated with the cur- 
rent task is assumed. 

TOID 

specifies the user identification to be associated with the data 
set on tape. 

Specified as ; One-to-eight alphameric characters, or 

♦FROMID; the FROMID is to be retained on tape as the TOID. 

System default : The user identification, associated with the cur- 
rent task is assumed. 

CATDS2 

specifies whether or not the data set on tape is tc be cataloged. 

Specified as i Y - the tape data set is to be cataloged. 

N - the tape data set is not to be cataloged. 

Functional Description : The VT command can be used to copy data sets 
serially on tape without issuing a new DDEF command each time. Once the 
user has identified the output data set by a DDEF command with DONATE of 
DDVTOUT, VT accepts each new request, updates the required control in- 
formation, and copies the specified data set (DSNAME1 ) as the next 
sequential file of the existing tape. The data set written out will be 
cataloged, if indicated, as though a new DDEF had been issued for each 
data set copied. 

The DSNAME2 and TOID values will be retained as part of the tape data 
set. It may be used by the TV command when the data set is restored to 
direct access storage. 

Although the user may specify that the output data set be cataloged 
<CATDS2=Y), DSNAME2 will not be cataloged where *DSNAME1 is specified, 
the name is preceded by an asterisk, the name is already cataloged or 
the TOID is not for a userid currently joined tc the system. 

DSNAME1 will be erased (ERASEDS1=Y) only if the data set is copied 
successfully. 

labels are written on the magnetic tape as specified in the user's DDEF 
for DDVTOUT. If the data set is to be placed on an existing tape, the 
labeling must be consistent with the previous contents cf the tape. 

Note : Before the initial VT command in a task, a DDEF command must be 
issued for the tape data set with DDNAME of DDVTOUT. 
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For each successfully copied data set, the user receives a message indi- 
cating the names of the input and output data sets and file sequence and 
volume serial numbers used. Any failure to copy successfully results in 
a diagnostic message and cancellation of the command. 

Programming Notes : The DDEF command describing the DDNAME of EDVTOUT 
must specify PS as the data set organization (ESORG) and a nine-track 
tape as the residence volume under the UNIT operand. In addition, when 
the TV command will be used to process the entire tape volume (identi- 
fied to TV by a DDEF with DDNAME of DDTVIN) f the DDVTOUT EDEF roust spe- 
cify an unlabelled tape in the LABEL operand. 

Example : 

1. The user wants to write his public VAM data set, MYDS, on a private 
tape volume as ABC. 

User : ddef ddvtout, ps,abc,unit=(ta, 9) ,volume= (private) j vt myds 

System : (copies MYDS on tape; the name assigned to the data set on 
tape is ABC) 

2. Now the user wants to write his public VAM data set, WN3, on to the 
same private tape volume. 

User : vt dsnamel=wn3 

System : (copies WN3 on tape with data set name $T.T0003.WN3) 

3. The user wants to save his VAK dataset DATA3 on a private tape as 
DATA3 . 

User : vt data3, *DSNAME1 

System : VSN (vsn) FSQ (fsq) data3 saved on tape. 

W (VAM to VAM) Command 

This command copies a VAM data set in direct-access storage. 



| operation j Operant j 

VV |DSNAMEl=current data set name [ f DSNAME2=new data set name] 

jl,ERASEDSl= Y|NH,OVERLAY= Y|Nl 
j (,RETAIN= Y|N] 

j (,FROMID=user identification) 
j [,TOID=user identification) 

DSNAME1 

identifies the cataloged VAM data set to be copied. 

Specified as : a fully qualified data set name. 

DSNAME2 

specifies the name to be assigned to the data set copyj if the copy 
is to reside on a private VAM volume, the data set name must be 
previously defined by a DDEF command. 

Specified as : a fully qualified data set name. 

System default : the new data set will be named in the form 
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$D. Dnnnn. dsnamel 

where nnnn is a unique number assigned to assure uniqueness of data 
set names. The qualifier $D will allow the user to reference all 
such data sets created by W by partially qualified data set name. 

E*ASEDS1 

specifies that the input data set is to be erased after the data 
set has been copied, 

FROMID 

specifies the user identification prefixed to the name of the input 
data set. 

Specified as : For a user, this must be the same as the user iden- 
tification associated with the current task. 

For the system manager, any user identification currently joined to 
the system. 

For a system administrator, any user identification currently 
joined to the system by him. 

System default : the user identification associated with the cur- 
rent task is assumed. 

Specified as : Y - erase after copy 

N - no erase after copy 

System default : N - no erasure will be made. 

OVERLAY 

specifies that the output data set will be overlayed if it already 
exists and the data set attributes CDSORG, RECFM, LRECL, KEYLEN, 
RKP) for the two copies are the same. 

Specified as : Y - overlay to be made 

N - overlay not to be made 

System default : N - no overlay to be made. 

TOID 

specifies the user identification to be associated with the output 
data set. 

♦FROMID; the FROMID is to be used as the TOID. 

System default : the current task user id is assumed. 

Functional Description : For each successful copy, the user is informed 
of the input and output data set names. Any failure to copy successful- 
ly results in a diagnostic message and cancellation of the command. 

DSNAME1 will be erased (ERASEDS1=Y) only when the data set is copied 
successfully. 

Generation indexes will be created as necessary for generation data 
groups not previously defined in the system. 

Examples : 

1. The user wants to copy data set XYZ into public storage. 

User : w xyz 
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System : (copies XYZ with the name $D. D0003.XYZ) 

2. The user wants to copy data set GH2 onto private VAM volume MYVOL1 
and name the data set ABC. 

User : ddef dummy f vi,afcc,unit= (da, 2311), volume=( r myvoll> 

vv gh2 # abc 

Systeir : (copies GH2 onto MYVCU. with name AEC) 

WT Command 

This command writes an existing VSAM or VISAM data set on tape for even- 
tual printing on a high-speed printer. 



j Operation j Operand j 

WT |DSNAME=current data set name , DSNAME 2 =t ape data set name 

| [,VOLUME=tape volume number] I , FACTOR =blocking factor 1 
j [,STARTNO=starting position] I ,ENDNO=ending position] 
I ,PRTSP=CEDIT| 11 21 3} 

| [,HEADER=H] £,LINES=lines per page] [,PAGE=P] 
| [, ERASE=£Y|N}] 

DSNAME 

identifies the cataloged VSAM or VISAM data set to he written on 
tape in print format. 

Specified as : a fully qualified data set name. 

DSNAME 2 

specifies the data set name under which the data set is to be cata- 
loged while it resides on the output tape. 

Specified as : a fully qualified data set name. 

System default : a previously labeled scratch tape is used. 

Caution : DSNAME2 must refer to a previously labeled tape data set. 

VOLUME 

specifies the volume identification number of the output tape. 

Specified as : from one to six alphameric characters. 

System default : scratch tape is used. 

FACTOR 

designates the blocking factor for records of the output tape. 

Specified as : from one to three decimal digits. The maximum 
blocking factor is 246. 

Systeir. default : 30. 

STARTNO 

specifies, for each record 9 the byte position at which writing onto 
the tape is to start. 

Specified as : from one to six decimal digits. 
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System default : writing starts with the first byte of each record. 

END NO 

specifies, for each record , the byte position at which writing onto 
the tape is to stop. This end byte is written. 

Specified as : from one to six decimal digit s. The value roust be 
greater than the value of the STARTNO operand. 

System default : writing continues to the last byte of each logical 
record or until the printer line length (132 characters) is 
reached, whichever occurs first. 

PRTSP 

designates the number of spaces to be skipped between lines. 

Specified as : 

EDIT - line spacing is controlled by a character in the first byte 
position of each data set logical record. The control 
character may be a FORTRAN control character or machine code 
(see Appendix D) , but must be of the saire type throughout 
the data set. The control character in each record is supp- 
lied by the user. 

1 - one space between lines. 

2 - two spaces tetween lines. 

3 - three spaces tetween lines. 

System default : 1. 

Note : When EDIT is specified, the HEADER, LINES, and PAGE operands 
must not be specified. 

HEADER 

specifies that the first logical record cf the data set is to he 
repeated on each print page as a header line. The first 132 bytes, 
or the entire first record, whichever is smaller, is used as the 
header . 

Specified as : H 

System default : no header is printed. 

LINES 

designates the number of lines to be printed on a page. 

Specified as : from one to four decimal digits (iraximum 9999). 

System default : 5** lines are printed on each page. 

PAGE 

specifies that pages are to be numbered. 

Specified as : P 

System default : no pages are numbered. 

KRASE 

specifies that the cataloged data set is to be erased from the 
catalog after the tape operation is finished. 
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Specified as : 

Y - erase. 
N - save. 

Systeir default ; N. 

Functional Description : WT results in the creation of an independent 
nonconversational task r to which the system assigns a BSN for possible 
reference by the user. 

The WT command processes input data sets that were created by using ei- 
ther VSAM or VISAM access methods. The tape data set, created by using 
the BSAM access method, is written in odd parity with standard TSS 
labels. 

The selected field in each input data record is written on tape as a 
logical record or print line, in proper format for high-speed printing • 
Records are blocked, if requested. The maximum blocked record length is 
32,767 bytes. Input records containing a read error (or an invalid con- 
trol character when the EDIT option is used), are printed on SYSOUT, in 
hexadecimal form. 

When EDIT is specified, the first byte in each logical record is assumed 
to be the byte following the control character, which is not printed or 
counted when the system determines where to begin printing a record. 

If the data set to be printed was created via the DATA command, the 
first byte of each record contains an indicator of the origin of the 
record. PRINT translates the byte to a C if the record was entered 
through a card reader, and to a blank if it was entered through the key- 
board. Unless the STARTNO operand is specified, this byte is printed as 
part of the record. If STARTNO is specified as 2, this byte is 
bypassed. 

Cautions : WT is valid for VSAM and VISAM data sets only. It cannot be 
used for a member of a VPAM data set. However, a VPAM member can be 
copied via the CDS command, and then the copy can be written onto tape* 

Programming Notes : The user can use the BSN to identify his task when 
entering the CANCEL command. 

The user can also have a data set printed on-line by using the PRINT 
command. 

Example : The user wants to create a tape, for offline printing, that is 
double-spaced and uses the first record as a header. Byt.es 20 to 130 of 
each record of data set RT. WINDER are to be printed on scratch tape. 
Pages are to be numbered and contain 60 lines, and the input data set 
isto be erased after it is written on tape. The tape data set, TAPEDS1, 
will be system blocked. 

User : wt rt .winder ,tapedsl, , ,20,130 ,2,h,60,p,erase 

The system accepts the task and assigns c BSN. 



Z LOGON Command 

This command is automatically invoked after the LOGON command is 
executed, but before control is passed to the user. Initially, Z LOGON 
performs no function; it allows the user to augment the initialization 
process. 
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j Operation [operand 
| ZLOGON j 



Note: There are no operands when invoked by LOGON. 

Functional Description : After the task initialization process is com- 
pleted, LOGON calls ZLOGON. If the user Cor the installation) has de- 
fined a procedure with the name ZLCGON, it is executed before control is 
passed to the user. Otherwise, ZLOGON is ignored and control is passed 
to the user. 

Programming Notes : When the user wants some function accomplished auto- 
matically when he logs on, he can define a procedure (via PROCDEF or 
BUILT IN) with the name ZLOGON, or he can equate (via SYNONYM) the name 
ZLOGON to the name of any other command or procedure. If a program is 
to be executed with ZLOGON during the initialization process, it roust 
reside in USERLIB. The user can also enter ZLOGON, after it has been 
defined, at any time during his task. 

Examples : 

1. The user wants to execute program PGMA every time he initiates a 
task. He defines this command procedure: 

procdef z logon 
call pgma 

Note : Program PGHA must be stored in the user's USERLIB to be 
executed. The user can also run program PGMA during his task by 
issuing ZLOGON. 

2. The user always wants to use the terminal card reader after 
initiating his conversational task. He issues: 

synonym zlogon=cb 

Note : During the LOGON process, the CB coirmand is issued before 
the user gets control. CB is ignored during initiation of a non- 
conversational task. 
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APPENDIX A: BULK INPUT FROM MAGNETIC TAPE 



This appendix describes how the user enters bulk input from magnetic 
tape. 

The way described here is the only direct means of reading a data set 
from tape and then converting it to VAM organization, writing it onto 
public storage, and cataloging it. The user must send information, in- 
dicated below with his tape to the system operator. He must also ensure 
that his tape format meets system requirements that are defined later in 
this appendix. The data set that will be stored and cataloged has a 
different organization from the input data set residing on the tape and 
must, therefore, have its own data set name. When the new data set has 
been cataloged, the user can refer to it just as he would refer to any 
other cataloged data set belonging to him. 

INFORMATION NEEDED BY THE SYSTEM OPERATOR 

The user must send the following information with his tape to the system 
operator for every data set that is to be read and cataloged. 

The system operator uses the information to enter an RT command that 
causes execution of a system-provided task to handle the tape input. 
Tne SYSOUT listing of that task, which is returned to the user, may con- 
tain messages. 

1. Identification of the user to whom the data set belongs. This i- 
dentification is specified as from three to eight alphameric char- 
acters. The first character irust be alphabetic. 

2. Volume identification of the tape. This identification must be 
specified as from one to six alphameric characters. 

3. Type of tape, for example, 7 (seven-track tape), 7DC (seven-track 
tape with data converter feature), or 9 (nine-track tape). If the 
user does not specify a type of tape, the tape type specified at 
system generation is assumed. 

When the user wants to submit a data set on seven-track tape (with 
or without the data converter feature), he must first consider tape 
characteristics. If characteristics such as density and parity 
match the standards set ty the installation, specify the type of 
tape as shown above. However, if characteristics are different, 
the user must issue a DDEF command for the data set, specifying the 
tape characteristics? issue a CATALOG coirmand to catalog the data 
set; and tell the operator that the tape has been cataloged. (See 
Item 5.) 

<4. Name of the input data set, specified as a fully qualified data set 
name, 

5- CTLG, which indicates that the data set is cataloged. 

6. Naire under which the data set is to be cataloged, specified as a 
fully qualified data set name. 

7. LINE, if the user wants lines to be numbered. If this option is 
specified, a VISAM data set that has variable-format records is 
created. Otherwise, a VSAM data set without line numbering is 
created. 
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8. What action is to be taken if an uncorrectable read error occurs. 
One of the following options can be specified: ACCEPT (error rec- 
ord is accepted), SKIP (error record is skipped), END (read opera- 
tion is terminated). If the user does not specify an option, £KD 
is assumed. 

The system reads the input data set, converts it to VAM organization, 
stores it on public storage, and catalogs it in the user's catalog under 
the name specified in the cataloged data set name operand. If the input 
tape contains more than one data set, the system reads the specified 
input data set only. 

The data set that is stored on public storage has either VSAM or VISUM 
organization, depending on whether the LINE option was selected. If 
line numbering was requested, the system generates line numbers in 
increments of 100. The maximum number of logical records permitted is 
100,000. The input data set record length must not exceed 120 bytes if 
line numbering is requested. 

The system does not perform code conversions. However, if the data set 
is on seven-track tape, the system makes any character adjustments re- 
quired for data validity. 

TAPE FORMAT REQUIREMENTS 

The magnetic tape must have the standard TSS label or a standard ASCII 
label. (This standard refers to American National Standard for Informa- 
tion Interchange ANSI X3. 4-1968. The abbreviation ASCII is used 
throughout this book.) Physical records must be fixed length and no 
longer than 32,767 bytes. 
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APPENDIX B: BULK INPUT FROM CARD DECKS 



This appendix describes how the user enters bulk input from cards. 

The user submits his data sets on punched cards to the system operator, 
who enters them into the system via a high-speed card reader. A system- 
provided task that handles the card input is executed. A SYSOUT listing 
of that task is produced. That listing may contain messages. Two types 
of input data sets are permitted: nonconversational SYSIN data sets and 
data-card data sets. The two types may be interspersed, one following 
another, in any order within a batch of cards. The rules for setting up 
these data sets are given below. 

Note : When the user wants to enter a nonconversational SYSIN data set 
together with the data sets it references, he must be certain that the 
data sets precede the SYSIN data set. 

The acceptable character set for punched cards is described in Terminal 
User's Guide. 



NONCONVERSATIONAL SYSIN DATA SET 

A nonconversational data set contains all commands needed to run a non- 
conversational task. These commands are punched in exactly the format 
used to enter commands from a terminal (see Part I under "Command Format 
and Notation"). The first card must be a LOGON command; the last, 
LOGOFF. Only the LOGON and LOGOFF commands must begin in column 3. Any 
command that is preceded by a break character (normally the underscore) 
must begin with the break character in column 1 if it is to be 
recognized. 

When the data set is read in, it becomes the SYSIN data set of a noncon- 
versational task; it is executed as soon as space is available. After 
execution, the SYSIN data set is eliminated. It does not remain in the 
catalog or in system storage. 

The card -deck format is shown in Figure 3. 

The SYSIN data set may include data that is to be read by the user's 
object program during execution. If so, the data to be read must appear 
immediately after the command that starts execution of the user's pro- 
gram. (Card data may also start in column 1. ) Also, for FORTRAN data, 
the end-of-data card, starting in column 1, must follow the last data 
card, as in Figure 4. 

Data-Card Data Set 

This type of data set contains any information the user wants to put 
into public storage as a cataloged data set; it may include commands. 
When this type of data set is read, a VAM data set is created and cata- 
loged in public storage. This VAM data set continues to reside in 
storage until it is specifically erased. Unlike the nonconversational 
SYSIN data set, it is not executed upon being read. 

The format of a data-card data set is shown in Figure 5. The first card 
of the data set must be a data descriptor card; the last must be the 
tENDDS card. The information that is punched into each card must start 
in column 3. 



262 



LOGOFF 



Cor^marKis 



LOGON 



'oENDDS 



data caids 



/ 



i^ 



Figure 3, Card deck for a 

non- conv ers at ional task 



Data 
Desoipt.-' 



Figure 5, An example of the 

data-card data set 




Figure 4. An example of a SYSIN data set, showing input data cards and 
the end-of-data card 

Data Descriptor Card 

The information that is given on the data descriptor card is used by the 
system to create a data set. The format of the information on the card 
is as f ollcws : 
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f . 1 

(Operands | 

| DATA SET, user identification ,dsname[ ,f ormat] | 

I [, starting number H , ending number] I, CLINE|FTN|COMP|CARD> 1 j 

| [ , error ] [ , REPLACE ] | 

DATASET 

indicates that data descriptor information follows. This operand 
must begin in column 3. 

Specified as : DATAS ET 

user identification 

identifies the user to the system. 

Specified as : the user's identification assigned to him when he 
was joined to the system. 

dsname 

is the name under which the new data set is to be cataloged. 

Specified as : a fully qualified data set name. 

format 

designates the class of card punching to be used. 

Specified as : 

EBCDIC — extended binary coded decimal interchange code. 
BCD — binary coded decimal. 

System default ; EBCDIC. 

starting number 

is the first column to be read when creating the data set records. 

Specified as : a decimal number from 1 to 80. 

System default : column 1. 

ending number 

is the last column to be read when creating the data set records. 

Specified as ; decimal number from 1 to 80. 

System Default : column 80. 

LINE 

indicates that line numbering is requested. Each record in the 
data set is prefixed ty a seven-character line number of the form 
xxxxxOO and by a byte of binary zeros that is reserved for system 
use. The resulting data set is a line data set with variable for- 
mat records. 

Specified as : LINE 

System default : no line numbering, VSAM. 



FTN 



indicates that a data set with the same characteristics as defined 
for LINE, above, be created. In addition, however, FTN specifies 
that the input cards are FORTRAN source and that the user wants 
them converted to contain keyboard continuation conventions. The 
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resultant data set can be updated from a terminal without any spe- 
cial consideration for multicard statements. Trailing blanks are 
stripped from statements that are not continued. 

COMP 

indicates that a data set with the same characteristics as defined 
under LINE be created except that trailing blanks are stripped from 
all input records. The data set is compressed at the point as 
specified by the END byte. Accordingly, for example , compression 
could take place in an assembler source disregarding the sequence 
number. 

CARD 

indicates that a VSAM fixed-length data set be created Cno line 
numbering). The record length is the difference between the start- 
ing number and the ending number ♦ 1. This is the system default. 

error 

indicates the action to be taken if an uncorrectable read error 
occurs. 

Specified as : 

ACCEPT — accept the record in error. 

SKIP — skip the entire logical record if any card in it is in 
error. 

END — terminate reading of the data set. 

System default : END 

REPLACE 

indicates whether an existing data set, with the same name as that 
specified on the DATASET card, will be erased when this data set is 
cataloged. When REPLACE is specified on the DATASET card and a 
data set with the same name exists in the user's catalog, the old 
data set is erased, and the new data set is cataloged. If, howev- 
er, the existing data set is on private storage, or if REPLACE is 
not specified, a diagnostic is issued, and the DATASET operation is 
canceled. 

Specified as : REPLACE 

System default : The old data set is not erased; the DATASET opera- 
tion is canceled. 

Functional Description : The operator initiates card reading; and the 
system reads the input data set, converts it to VAM organization, puts 
it in public storage, and catalogs it in the user's catalog under the 
data set name provided. The stored data set has either a VSAM or a 
VI SAM organization, depending on whether the LINE option was selected. 
If line numbering was requested, the system generates line numbers in 
increments of 100. The maximum number of lines permitted in such a data 
set is 100,000. When line nuittbering is requested, the new data set rec- 
ord length must not exceed 120 bytes. 

Caution : You cannot create a VPAM data set with the DATASET card. 

%ENDDS Card 

This card, with %ENDDS starting in column 3, irarks the end of a data set 
that is to be cataloged. (See Figure 5.) 
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APPENDIX C: PROTOTYPE PROFILE 



The prototype profile, which is initially used to forir the user profile 
for each user, contains command system defaults, input and output trans- 
lation characters, and a table of miscellaneous control characters. 
This appendix covers the following topics: 

• The table of system defaults 

• The basics of translation, including the translation tables and the 
corresponding function codes for input translation and for output 
translation 

• The character switch table 



TABLE OF SYSTEM DEFAULTS 

Table 19 contains default values for command operands and implicit 
operands, (Implicit operands are not specified with a command, but they 
may affect the operation of a command or of the system.) This table 
shows the initial values for these defaults. Each value can be changed 

with the DEFAULT command- 



Table 19. Command system defaults 

Table 19. Command system defaults (part 1 of *0 



| Operand 
I Name 



T T 

Default 
Value 



I" 

JACC 

| ACCESS 

| ACTION 

[ALIAS 

| ALPHABET 

| ASMLIST 






|BASE )100 

| BCD j N 

(BREVITY IT 
|BSN 

I + 



JCHAR 

I CLEANUP 

| CLP 

|CONF 

| CONPRMPT 

| CONREC 

I COOT 

| COPYBASE 

|COPYINCR 

| CORMARK 

|CP 

|CRLIST 

ICSW 



Purpose or Command that Uses 

CATALOG 

PERMIT 

CATALOG 

POD? 

C,CA,CB,K,KA,KB 

ASM 



N 
N 



EDIT, REGION 

FTN 

Message length filter 

CANCEL 



CORRECT, LIST 

EXIT 

MCAST 

MODIFY 

UPDATE, text editor data input routine 

UPDATE, text editor data input routine 

MCAST 

CDS 

CDS 

CORRECT 

MCAST 

ASM, FTN 

PROFILE 



JL- 
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Table 19, Command system defaults (part 2 of 4) 



1 


~T 




T ""*""* ■————.—-« — —•.— — . J -»4» J » J « MU __ 


1 


j Operand 


| Default 






| Name 


J Value 


| Purpose or Comirand that Uses 

i MJ1 mmm . -.--————---—-.— „ 




1— 


•T """■ 




T — — 




(DATA 






|POD? 




| DBASE 






(DATA 




(DCB 






(DDEF, FILEDEF 




(DDNAME 






(CLOSE, DDEF, FILEDEF , JOBLIBS, RELEASE 




| DEPROMPT j Y 




(DELETE, ERASE 




| DEVICE 






JEW 




j DIAGREG 


|N 




(ABEND 




|DINCR 






(DATA 




|DISP 






(DDEF, FILEDEF 




JDS NAME 






(BACK, CATALOG, CDD, CLOSE, DATA, DDEF, DELETE, 

(EDIT, ERASE, EXCERPT, EXECUTE, FILEDEF, LINE, 

| PERMIT, PRINT , PUNCH, RELEASE, RET, SHARE, WT 




I DSNAME1 










(DSNAME2 






(CDS, TV, VT, VV, WT 




JDS ORG 
i 


i _ __«... 




(DDEF, FILEDEF 


J 


r - — 

| ENDNO 






(PRINT, PUNCH, KT 


""I 


|EOB 






JMCAST 




(ERASE 


IN 




(CATALOG, CDS, PRINT, PUNCH, WT 




| ERROROPT j END 




(PRINT, PUNCH, KT 




I EXPLICIT) 




|PLI 




(EXTNAME 
(FACTOR 


i __ . 




(BUILTIN 


...J 


"T- "" " 




(WT 


1 


(FORM 






(PRINT, PUNCH 




( FROMDEV 






| DMPRST 




| FRVOLID 






(DMPRST 




|FTN 

i _.— « 


I L , mj , 




(MODIFY 

i ^ ^ „ -, r . , -, ■ » - . 




r — 


"T 




1 — 




(GDG 






(CATALOG 




(GNO 






| CATALOG 




I 


„1__ 




I 


.-«J 


T ' 




9 


... -j 


(HEADER 






|PRINT, WT 




| HEXSW 
(INCR 


|x% 

.„ i „ m ,_ 




(CONTEXT, DATALINE service routine, UPDATE 


J 


(100 




(EDIT, INSERT, NUMBER, REGION, REVISE 


1 


| IHSERTn 






(PRMPT 




j INSTLOC 






(BRANCH 




| IOTRAN 






(MCASTAB 




(ISD 


1* 




| ASM, FTN, LNK 




(ISDLIST 


|N 

i , 




(ASM 

„ 1 _ .... - , „,. , „,--,. , r ™ » , - ^ -r ^ , „ ,., ■ ■ , „ • , - ----■.,. , - « - - - ... -' - - . 




r 


T L ' - 




t --- — -—— — - 




| JOBLIB 
|KC 


-+ 




(DDNAME? 


r J 




| MCAST 


1 


(KEYLEN 

i __^ 


„ 1 ,, . 




(DDEF, FILEDEF MODIFY 


4 


(LABEL 


T 




|DDEF, DMPRST, FILEDEF 


— ^ 


(LGH 






|LL 




(LIB 






j LNK 




(LIMEN 


|W 




(Message severity filter 




(LINCR 


I (100, 


100) |ASM, FTN, LNK 




| LINE 






(LINE?, RT 




| LINENO 


|Y 




(DATA, MODIFY, text editor data input routine 




(LINES 


(54 




(PRINT, WT 




j LISTDS 


IY 




(ASM, FTN, LNK 




|LOC 






|RUN 




(LPCXPRSSI 




(ASM, FTN, LNK 




(LRECL 






(DDEF, FILEDEF MODIFY 




L 


-JL 




Mm -.- 


J 
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Table 19. Command system defaults (part 3 of 4) 

-T ' 



j Operand j Default 




| Name | 


Value 


j Purpose or Command that Uses | 


r" ■ ■ 1 

(MACRO | 




JFILEDEF | 


(MACRODS j 




|PLI | 


| MACROLIB | 




JASW I 


(MAP j 




IPLI | 


|MERGEDS | 




|PLI | 


|MERGELST| 




]PLI | 


1 MINS j 




|TIME | 


(MMAP |N 




(FTN | 


(MNAME | 




I QUALIFY | 


(MODREP | 




(ASM, FTN, LNK | 


(MODULE | 




j POD? j 


JMSGID ) 

• _i... 




(PRMPT I 


r 1 — 

(Nl | 




J CONTEXT, CORRECT, EXCERPT, EXCISE, INSERT, LIST, | 
] LOCATE, NUMBER, REVISE j 


JN2 ) 




(CONTEXT, CORRECT, EXCERPT, EXCISE, LIST, LOCATE, | 
| NUMBER, REVISE j 


[NAME | 




(ASM, EUXLTIN, CALL, COBOL, FTN, FTNH, HASM, LNK, j 
j LOAD, PLI, PLIOPT, PROCDEF, UNLOAD j 


(NAMES | 




(DSS?, PC? j 


(NBASE j 




(NUMBER | 


(NEWSAME 1 




| CATALOG | 


JNEWPASWDJ 




I CHGPASS I 


(NEWVLID 1 




JDMPRST I 


| NUMLINES | 1 




| SPACE I 


(OBLIST (N 




I FTN ( 


(DCERASE | 




IODC J 


I ODCPLI I 




|ODC | 


| OPTION | 




(DDEF, FILEDEF | 


(OPTIONl | 




j EXHIBIT | 


(OSDDN j 




JFILEDEF, FILEREL ( 


|OSKEYLE | 




I FILEDEF | 


( OSOPTS j 




(COBOL, FTNH, HASM, PLIOPT j 


| OUTRAN | 




| MCASTAB | 


(OWNERDS I* ALL 


(SHARE | 


t ---.-.A 




A _ lt „ „ «. _,.,«. - r _ ,„ . , j 


r ■ " t 




1 ■" 1 


JPADCHAR I 




(PLI j 


I PAGE j 




(PRINT, WT | 


| PLCOPT j 




(PLI | 


I PLIOPT | 




(PLI | 


IPLIPACK | 




(PLI | 


(PMDLIST (N 




(ASM, FTN, LNK | 


(PODNAME |USERLIB 


I POD? | 


I PREXPAND j 




(Controls procedure expansion error analysis | 


|PROCNAME) 




(KEYWORD | 


(PROLIB | 




JBUILTIN, PROCDEF | 


| PROTECT j 




| DDEF | 


| PRTSP I 1 




JPRINT, WT | 


(PUBLIC JN 




(FTN | 

L , , , „| 


[READ |N 




(BLIP | 


( RCC j 




JMCAST | 


IRECFM I 




(DDEF, FILEDEF MODIFY | 


(REGSIZE |0 




| EDIT | 


IREJMSG I 




(PLI | 


(REPLACE | 




I CDS I 


I RESET JN 




|LL | 


I RET j 




JDDEF, FILEDEF RET ( 


JRKP | 




[DDEF, FILEDEF MODIFY \ 


|RNAME | 




J EDIT, EXCERPT, REGION . | 


|RS I 




(MCAST j 


|RSVP j 




(Controls responses in GATE | 


I RTYPE j 




| DATA | 


(RUNMODE | 




JDMPRST ( 
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Table 



h 



Operand 
Name 



SCOL 

SETNAME 

SHARED 

SIRTEST 

SLIST 

SOURCEDS 

SPACE 

SSM 

STACK 

STARTNO 

STATE 

ST EDIT 

STORED 

STRING 

STRING1 

STRING2 

SYMLIST 

SYSIN 

SYSINX 



TIME 

TODEV 

TOVOLID 

TRANTAB 

TRP 

TRUNCATE 

TYPE 



UNIT 

UPDTXFERI 
USERID 
USM 

I 4— 

VERID 
VOLUME 



WRITCHK 
J + 

XFERDS 



Default 
Value 



19. 

T"" 



Command system defaults (part 4 of 4) 



+- 



— + 






— + 






Purpose or Command that Uses 

CORRECT 

MODIFY 

ERASE 

EXIT, PUSH 

FTN 

| COBOL, FTNH, HASM, PLI, PLIOPT 
|DDEF, FILEDEF 
|MCAST 
| PUNCH 

| PR INT , PUNCH, WT 
[CATALOG, PERMIT 
[ASM, FTN 
[ASM, FTN f LNK 
| LOCATE 
(CONTEXT 
| CONTEXT 
| ASM 

[Controls GATE'S access to SYSIN data set 
(Controls coirmand analyzer"s access to GATE 

| BLIP 

| DMPRST 

| DMPRST 

(Text editor 

(MCAST 

|LL 

[CLOSE, EXHIBIT 



DDEF, FILEDEF 

PLI 

PERMIT, SHARE 

MCAST 



ASM, FTN, LNK 
DDEF, EVV, FILEDEF, 



WT 



DMPRST 



PLI 



BASICS OF TRANSLATION 

Each character translation table (see Table 20 and Table 21) is made up 
of two parts: the first part has 256 translation entries, and the 
second part has 256 corresponding entries that are the function codes 
assigned to the translation entries. 

The translation entries begin at byte (X^O") and continue through 
byte 255 CX'FF'). The function codes begin at byte 256 (X'lOO) and con- 
tinue through byte 511 (X'lFF - ). There are two sets of function codes, 
one for input and one for output. 

The meanings of the input function codes that are shown in Table 20 are 
as follows: 

Code 00 - Translate only 

when this code is specified for a character, the system picks up 
the internal code of that character. 



Appendix C: Prototype Profile 269 



Code 04 - Character kill 

every time it encounters a character with this function code, the 
system deletes that character and the one preceding it. The 
system-supplied value is backspace. 

Code 08 - End-of- block or new line 

when the system encounters a character with this code, it reco- 
gnizes it as the end of an input stream and appends at that point 
an EOB character from the table of miscellaneous control charac- 
ters • Any characters beyond the EOB character are ignored. 

Code 0C - Cancel 

if the last character in the line has this code, the system deletes 
the character and the entire line that precedes it. The system- 
supplied value is #. 

Code 10 - Terminal null 

if this code is assigned to the last character before the end-of- 
block f the system ignores the character. The system-supplied value 
is a new line. 

Code 14 - Null 

any character to which this code is assigned is ignored as input to 

the system. 

Code 18 - Escape 

any character to which this code is assigned becomes a one- 
character escape. The character immediately following is always 
treated as data. i 

The meanings of the output function codes that are shown in Table 21 are 
as follows: 

Code 00 — Translate only 

all characters assigned this function code are translated using the 
corresponding values in the first half of the output translation 
table. 

Code 04 — Restore 

when a bypass code is in effect for output data, the restore code 
restores printing of the output data to a 1050 Data Communications 
System. 

Code 08 — Bypass 

any output data, preceded by a bypass code, is not printed at a 
10 50 terminal. A restore code restores output printing. 

Code 0C — Prefix 

a character with this function code causes the printer ribbon to be 
shifted. This function requires special features on the 105 2 
Printer-Keyboard and the 2741 Communications Terminal. 

Code 14 — Tab 

this code causes a tab to be generated at the terminal. The output 
continues at the next tab position. (Line length control is termi- 
nated when a tab character is recognized.) 

Code 18 — New Line 

this code generates a carriage return and a line feed. The func- 
tion is not recognized on the teletype terminal. 

Code 1C — Eackspace 

this code generates a backspace. On the teletype terminal there is 
no physical backspace; a left arrow is printed to indicate that a 
backspace has occurred. 
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Code 20 — Delete Character 

a character assigned this code is deleted from the output stream; 
initially f all unprintable characters have this code. 

Code 28 — Line Break Character 

when a line of output data is too long for the terminal, this 
character is used to indicate where the line may be broken. 

Code 30 — Line Feed 

this code causes the terminal paper to be iroved up one space. 

The procedure of translation is as follows: 

1. A character is entered into the system, either from a terminal or 
from an output data set. For example, a user enters a capital 
letter A from the terminal. 

2. The system uses the hexadecimal position of A, which is CI, as an 
index into the translation table. (The translation entries and the 
corresponding functional codes for input are shown in Table 20. 
These are the values that are provided intially by the system. The 
values can be changed. ) 

3. There is a code in the location in the table that corresponds to 
the character (really, it corresponds to the EECDIC representation 
of the character). The value in Table 20 for the letter A is 
X'Cl 1 . 

4. The system looks at the corresponding function code position to see 
if there is an entry. For example, the system looks at decimal 
location 449 (see the column labeled "Function Code"; the hexadeci- 
mal byte is x f lCl - which is found by adding X'Cl' to X'FF*) for the 
function code for A. 

5. If a function code is found, the function is performed. If no 
function code is found, the character is translated only. For ex- 
ample, the function code for A is 00 for input, as shown in Table 
20 (translate only), and 00 for output, as shown in Table 21 
(translate only) . 

The user can change his translation tables. This procedure is explained 
in the descriptions of the MCASTAB and SET commands in Part III. 



Table 20 . 


Prototype : 


Lnpu 


t character translation table 


s (part 1 of 6) 


i 

[ Translation 


Entry 


1 






Function 


■ ■ ■ ■ ■ " mi : — """i 

Code J 


L_._ ™^-^-» 
















T — 

imal) | 


1 

Input Code | 
(Hexadecimal) I 


1 Byte |Code (Hexa- 
| (Decimal) | decimal) 


"T" 


"T" 

Character | 


Byte 


(Dec 


i i 






-4- 










, ., , , i_ „ 


„ j 


1 o | 







T 








256 


T" 


— 1 

00 | 


1 1 | 




1 










257 




00 | 


1 2 | 




2 










258 




00 | 


1 3 | 




3 










259 




00 | 


I ** 1 




4 






PF | 




260 




00 | 


1 5 1 




5 






HT | 




261 




00 I 


1 6 I 




6 






LC \ 




262 




00 i 


1 7 1 




7 






DEL | 




263 




00 | 


1 8 J 




8 










264 




00 I 


1 9 1 




9 










265 




00 | 


1 io 1 




A 










266 




00 | 


1 H 1 




B 










267 




00 | 


1 12 | 




C 


-A- 




___JL- 




2,68 


„ . ..L„. 


00 | 
J 
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Table 20. Prototype input character translation table (part 2 of 6) 



I translation Entry j Function Code j 


. 


r t ■ — + *~ i 


. ..--.. , I 


h 1 


r — ""■ 1 


| Byte 


Code (Hexa- 






Input Code | 


J (Decimal) 
I 13 


decimal) 


Character 


| Byte (Decimal) 


(Hexadecimal) | 

i ,._ _,. ,„,. .^ j 


^ iji im iir . n 

D 


269 


r 1 
00 | 


| in 


E 




| 27 


00 ] 


1 15 


F 




271 


00 i 


| 16 


10 




27 2 


00 | 


| 17 


11 i 




273 


00 | 


1 18 


12 




1 274 


00 | 


1 l^ 






275 


00 | 


1 20 


14 


RES 


| 276 


00 | 


| 21 


15 


NL ! 


277 


10 | 


1 22 


16 


BS 


| 27 8 


04 | 


I 23 


17 


IL | 


279 


00 | 


I 24 | 


18 




280 


00 | 


1 25 


19 




281 


00 | 


1 26 | 


1A 




| 282 


00 | 


| 27 


IB 




283 


00 | 


| 28 


1C 




| 284 


00 J 


| 29 


ID 




285 


00 | 


I 30 ! 


IE 




| 286 


00 | 


1 31 


IF 




287 


00 | 


I 32 


20 


DS 


| 288 


00 i 


1 33 


21 


SOS | 


289 


00 i 


I 34 i 


22 


FS 


| 290 


00 | 


1 35 


23 




291 


00 | 


1 36 ! 


24 


BYP 


| 292 


00 i 


I 37 


25 


LF | 


293 


00 | 


I 38 


26 


! ECB 


| 29 4 


08 I 


| 39 


27 


PRE | 


295 


00 i 


I 40 


28 




1 296 


00 | 


| 41 


29 




297 ! 


00 | 


| 42 


2A 


SM 


| 298 


00 | 


I 43 


2B 




299 


00 | 


| 44 


2C 




| 300 


00 | 


J 45 


2D 




301 


00 i 


1 46 


2E 




| 30 2 


00 | 


| 47 


2F 




303 


00 | 


1 <*8 


30 




| 30 4 


00 | 


I 49 


31 




305 


00 | 


| 50 


32 




| 306 


00 | 


I 51 


33 




307 


00 i 


1 52 


34 


| PN 


| 30 8 


00 \ 


| 53 


i 35 


RS ! 


309 


00 t 


| 54 


36 


| uc 


| 310 


00 | 


I 55 


| 37 


EOT | 


311 


00 | 


I 56 


38 




| 312 


| 00 | 


1 57 


| 39 




313 


00 | 


1 58 


3A 




| 314 


1 oo i 


1 59 


| 3B 




315 


00 | 


| 60 


3C 




| 316 


! 00 | 


I 61 


| 3D 




317 


00 | 


1 62 


3E 




| 318 


I oo ] 


| 63 


| 3F 




319 


00 | 


| 64 


40 


| SP 


| 320 


i oo | 


| 65 


| 41 




321 


00 | 


1 66 


I *»2 




| 322 


1 oo I 


I 67 


| 43 




323 


00 | 


| 68 


44 




| 324 


1 oo I 


| 69 


| 45 

i - _. .. 


, i 


325 

L 1 


00 i 

L - ■ * 
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Table 20. 



Prototype input character translation table (part 3 of 6) 



| Translation Entry 


1 
- 1 


Function Code 


— 1 

1 

..J 


t 1 ' T 


"1 


■ - ■ "■ ■ ■ - "■"" ■" t ' — "— ™ "" " " -"" -"■"-— 


i 


j Byte 


Code (Hexa- 






] Input Code 




\ (Decimal) 

i 


decimal) | 


Character 


| 


Byte (Decimal) j (Hexadeciiral) 

j ■ ■ - - 


-J 


| 70 


r 1 

46 




t 


326 | 00 


1 


I 71 


47 






32 7 j 00 




| 72 


48 






328 | 00 




1 73 


49 






32 9 j 00 




| 74 


4A 






330 j 00 




| 75 


1 4B 


• 




331 | 00 




1 7 6 


4C 


< 




332 | 00 




I 77 


4D 


( 




333 J 00 




1 78 


4E 


♦ 




334 j 00 




| 79 


4F 


! 




335 | 00 




| 80 


50 ; 


s 




33 6 | 00 




I 81 


51 






337 I 00 




| 82 


52 






33 8 I 00 




| 83 


53 






339 j 00 




| 8a 


54 






340 | 00 




| 85 


55 






341 | 00 




| 86 


56 






34 2 j 00 




I 37 


57 






343 1 00 




| 88 


58 ! 






34 4 | 00 




| 89 


59 






345 I 00 




| 90 


5A 


! 




34 6 | 00 




1 91 


5B 


1 $ 




347 J 00 




j 92 


5C | 


♦ 




34 8 I 00 




1 9 3 


5D 


! ) % 




349 J 00 




| 94 


5E 


§ 




350 I 00 




| 95 


5F 


-% 




351 | 00 




1 9* 


60 | 


- 




352 | 00 




| 97 


61 


/ 




353 I 00 




| 98 


62 






354 | 00 




| 99 


63 






355 | 00 




| 100 


64 






356 I 00 




| 101 


65 






357 | 00 




| 102 


66 






358 | 00 




I 103 


67 






359 I 00 




| 104 


68 






360 | 00 




| 105 


69 






361 I 00 




| 106 


6A i 






362 I 00 




| 107 


6B 


I t 




363 | 00 




| 108 


6C | 


% 




364 I 00 




I 109 


6D 






365 | 00 




I 110 


6E 


> 




366 j 00 




I 111 


6F 


? 




367 | 00 




| 112 


70 






368 1 00 




| 113 


71 






369 | 00 




| 114 


72 






370 | 00 




| 115 


73 






371 1 00 




| 116 


74 | 






372 | 00 




I 117 


75 






373 | 00 




| 118 


76 | 






374 | 00 




I 119 


77 






375 1 00 




I 120 


i 7 8 ! 






376 | 00 




| 121 


79 






377 1 00 




| 122 


7A 


s 




378 | 00 




1 123 , 


7B 


# 




37 9 | 0C 




| 124 


7C 


a 




380 | 00 




| 125 


7D 


■ 




381 | 00 




| 126 


7E 


= 




382 j 00 




i i 


_ « j 


L - — 


-L_ 


„ , L , 


..J 
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Table 20. Prototype input character translation table (part 4 of 6) 



Translation 



Entry 
-r 



I 



Function Code 

1 



j Byte 


Code <H< 


| (Decimal) 


decim 


L __ J 


i Ml , , 


r 1 


\ 


| 127 


7F 


| 128 


80 


| 129 


81 


I 130 


82 


I 131 


83 


I 132 


84 


| 133 


85 


| 134 


; 86 


| 135 


87 


| 136 


1 88 


| 137 


89 


| 138 


8A 


| 139 


8B 


| 140 


8C 


| 141 


8D 


| 142 


8E 


| 143 


8F 


| 144 


90 


| 145 


91 


| 146 


92 


| 147 


93 


| 148 


94 


1 149 


95 


| 150 


96 


| 151 


97 


| 152 


98 


| 153 


99 


| 154 


9A 


I 155 


9B 


| 156 


9C 


| 157 


9D 


| 158 


9E 


| 159 


9F 


| 160 


A0 


| 161 


Al 


| 162 


A2 


| 163 


A3 


| 164 


A4 


| 165 


A5 


| 166 


A6 


| 167 


A7 


| 168 


A8 


I 169 


A9 


| 170 


AA 


I 171 


AB 


I 172 


AC 


1 173 


AD 


| 174 


AE 


| 175 


AF 


| 176 


B0 


| 177 


Bl 


| 178 


B2 


| 179 


B3 


| 180 


B4 


| 181 


B5 


I 182 


B6 


| 183 


B7 



Character 



a 
b 
c 
d 
e 
f 

g 

h 
i 



3 

k 
1 
m 
n 
o 
P 

q 

r 



s 
t 
u 

V 

w 

X 

y 

z 





| Input Code j 


;e (Decimal) 


i (Hexadecimal) | 

L_ ._ , - „, _.««.- J 




1 


|. .... ^.arj 


38 3 


00 | 


384 


00 i 


385 


E 00 I 


386 


00 | 


387 


00 | 


388 


00 | 


389 


00 i 


390 


00 | 


391 


00 | 


392 


00 | 


393 


00 | 


394 


00 | 


39 5 


00 i 


396 


00 | 


397 


00 | 


398 


00 | 


399 


00 i 


400 


00 i 


401 


00 | 


402 


00 i 


403 


00 | 


404 


00 i 


405 


00 I 


406 


00 | 


407 


00 i 


408 


00 | 


409 


00 i 


410 


00 i 


411 


00 | 


412 


00 i 


413 


00 i 


414 


00 | 


415 


00 | 


416 


00 i 


417 


00 J 


418 


00 | 


419 


00 i 


420 


00 | 


421 


00 . | 


422 


00 J 


423 


00 | 


424 


00 i 


425 


00 i 


426 


00 i 


427 


00 | 


428 


00 | 


429 


00 I 


430 


00 i 


431 


00 | 


432 


00 i 


433 ! 


00 | 


434 ; 


00 | 


435 


00 i 


436 


00 | 


437 


00 i 


43 8 


00 | 


439 


00 i 
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Table 20. Prototype input character 

— T - 



translation table (part 5 of 6) 



Translation Entry 



I 
— +- 



Function 

1— 



Code 



Byte 
(Decimal) 



184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 



ie (Hexa- 






| Input Code j 


lecimal) 


| Character 


| Byte (Decimal) 

L_ „- 


| (Hexadecimal) | 

j. - „ ,„ , lir - "-1 


B8 


j.- „_„_--, 


r — — — 1 
440 


1 oo i 


B9 




| 441 


1 00 | 


BA 




442 


1 00 | 


BB 




| 443 


1 00 | 


BC 




444 


| 00 | 


BD 




| 445 


1 00 | 


BE 




44 6 


1 00 | 


BF 




| 447 


1 00 | 


CO 




448 


1 00 | 


CI 


1 A 


| 449 


I 00 | 


C2 


B 


450 


1 00 | 


C3 


1 c 


| 451 


I 00 | 


C4 


D 


452 


1 00 | 


C5 


1 E 


| 453 


I 00 | 


C6 


F 


454 


1 00 | 


C7 


1 G 


| 455 


00 | 


C8 


H 


456 


00 | 


C9 


| I 


| 457 


00 | 


CA 




458 


00 i 


CB 




| 459 


00 | 


CC 




460 


00 | 


CD 




| 461 


00 | 


CE 




462 


00 | 


CF 




1 463 


00 | 


DO 




464 


00 | 


Dl 


1 J 


| 465 


00 | 


D2 


K 1 


466 


00 | 


D3 


1 L 


l 467 


00 | 


D4 


M | 


468 


00 | 


D5 


1 N 


469 


00 | 


D6 1 


o 1 


470 


00 [ 


D7 


1 P 


471 


00 | 


D8 


Q 1 


472 


00 | 


D9 


1 R 


| 473 


00 | 


DA 




474 


00 | 


DB 




| 475 


00 | 


DC 




476 


00 | 


DD 




| 477 


00 | 


DE 




478 


00 | 


DF 




| 479 


00 | 


E0 




480 


00 | 


El 




481 | 


00 i 


E2 


s 1 


482 


00 i 


E3 


1 T 


! 483 


00 | 


E4 


U | 


484 


00 | 


E5 


1 v 


| 485 


00 i 


E6 


W | 


486 


00 i 


E7 


1 X 


487 


00 | 


E8 


Y | 


488 


00 | 


E9 


1 z 


489 


00 | 


EA 




490 


00 i 


EB 




491 


00 | 


EC ! 




492 


00 | 


ED 




49 3 


00 | 


EE ! 




494 


00 | 


EF 




i 495 


00 | 


F0 | 


1 


496 


00 | 
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Table 20, Prototype input character translation table Cpart 6 of 6) 

_ T 



j Translation Entry 

^ — i t 



—h 



Function Code 



-T 



| Byte 


(Code (H 


| (Decimal) 

L_ __ 


| decim 


I 241 


Fl 


| 242 


| F2 


| 243 


F3 


| 244 


F4 


I 245 


| F5 


| 246 


| F6 


| 247 


F7 


| 248 | 


F8 


I 249 


F9 


| 250 


FA 


| 251 


FB 


1 252 | 


FC 


1 253 j 


FD 


1 254 | 


FE 


1 255 | 


FF 



Character 



1 
2 
3 
4 
5 
6 
7 



Byte (Decimal) 



l 



.J . j 



497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
50 8 
509 
510 
511 



Input Code 
(Hexadeciiral) 

00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 
00 



- — f 



Table 21. Prototype output character translation table (part 1 of 5) 



Translation Entry 



Function Code 






| Byte 


|Code (Hexa- 




J (Decimal) 

L_ J 


| decimal) 

L,„„ - .,. 


Character 


1 


r — 




i o 







i i 


| 1 




I 2 


1 2 




1 3 


1 3 




t t 


4 


I PF 


I 5 


1 5 


HT 


1 6 


6 


| LC 


1 7 


1 7 


DEL 


1 8 


8 




J 9 


1 9 




| 10 


A 




1 H 


\ B 1 




1 12 


C 




1 13 


D 




i 1^ 1 


E 




I 15 


F | 




1 16 1 


10 




1 l" 7 


1 11 1 




1 18 | 


12 




I 1^ 


13 | 




1 20 | 


14 


| RES 


1 21 


15 | 


NL 


1 22 | 


16 


BS 


I 23 


17 J 


IL 


1 24 j 


18 




I 25 | 


19 | 




1 26 | 


1A 1 




I 27 | 


IB | 




1 28 | 


1C | 




1 29 | 


ID | 




1 30 | 


IE | 





Byte (Decimal) 



256 
257 
258 
259 
26 
261 
26 2 
263 

26 4 
265 
266 
267 
268 
269 

27 
271 
27 2 
273 
274 
275 
276 
277 
27 8 

27 9 
280 
281 

28 2 
283 
284 
285 
286 



Input Code 
(Hexadeciiral) 

1 



20 
20 
20 
20 
20 
14 
00 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
20 
04 
18 
1C 
00 
20 
20 
20 
20 
20 
20 
20 



i- 



-JL 



— X. 
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Table 21 


Prototype 


output character translation 


table Cpart 2 of 5) 


I Translation Entry | 


Function Code 


j ^ 

I Byte 


r 

Code (Hexa- 


r t 




I Input code 


| (Decimal) 
i 


decimal) 


| Character J 


Byte (Decimal) 


j (Hexadecimal) 

.. j 


1 — - 1 
I 31 


| IF 




287 


| * 20 


1 32 


20 


1 DS 1 


28 8 


| 20 


I 33 


1 21 


SOS | 


289 


) 20 


| 34 


22 


1 PS | 


290 


) 20 


1 35 


| 23 




291 


| 20 


I 36 


24 


| BYP | 


29 2 


] 08 


1 37 


1 25 


LF 1 


293 


i 30 


| 36 


26 


| ECB | 


294 


1 20 


| 39 


| 27 


PRE | 


295 


| OC 


| 40 


28 




296 


| 20 


1 41 


j 29 




297 


| 20 


| 42 


2h 


1 SM | 


29 8 


| 20 


1 ** 3 


1 2B 




299 


| 20 


| 44 


2C 




300 


| 20 


| 45 


| 2D 




301 


| 20 


| 46 


2E 




30 2 


] 20 


\ 47 


| 2F 




303 


| 20 


| 48 


30 




304 


1 20 


| 49 


! 31 




305 


| 20 


| 50 


32 




30 6 


| 20 


I 51 


33 




307 


| 20 


1 52 


34 


1 PN J 


30 8 


| 20 


1 ^3 


35 


RS | 


309 


| 20 


| 54 


36 


1 uc | 


310 


| 00 


1 55 


| 37 


EOT | 


311 


| 20 


I 56 


38 




312 


I 20 


1 57 


1 39 




313 


| 20 


| 58 


3A 




314 


| 20 


I 59 


1 3B 




315 


I 20 


{ 60 


3C 




316 


| 20 


1 61 


| 3D 




317 


| 20 


1 62 


3E 




318 


1 20 


1 63 


1 3F 




319 


1 20 


| 64 


40 


1 SP | 


320 


I 28 


I 65 


| 41 




321 


| 20 


| 66 


42 




322 


I 20 


I 67 


| 43 




323 


I 20 


| 68 


44 




324 


1 20 


1 69 


45 




325 


| 20 


J 70 


46 




326 


| 20 


1 71 


47 




327 


| 20 


I 72 


48 




328 


I 20 


1 73 


49 




329 


| 20 


| 74 


4A 




330 


1 00 


1 75 


4B 


• ( 


331 


| 00 


1 76 


4C 


< | 


332 


| 00 


1 77 


4D 


( | 


333 


) 00 


| 78 


4E 


* 1 


334 


| 00 


| 79 


4F 


1 1 


335 


1 00 


| 80 


50 


& 1 


336 


] 00 


I 81 | 


51 




337 


1 20 


| 82 


52 | 




338 


1 20 


1 83 ! 


53 




339 


| 20 


1 84 


54 i 




340 


1 20 


) 85 | 


55 




341 


| 20 


1 86 


56 | 




34 2 


1 20 


1 87 | 


57 




34 3 


| 20 


L J 


.- -,- J 


L - 1 - 


M. — .--.-.—» 


_.i ,,, 
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Table 21. Prototype 


output character translation table (part 3 of 5) 


r n T " T ' " - l 

| Translation Entry | Function Code 1 

L_ _,-.— — -...-— —- — - — — » __ ' - — - ■ ■ 


r — .-u»« T , -. - 1 


r t i 1 


| Byte |Code (Hexa- 


| | Input code | 


[(Decimal)] decimal) 


Character | Byte f Decimal) J (Hexadecimal) | 


1 X _ J 


1 ._ „ l _„„,-, n- - -„.,, L». -,-,--,.,, ■■- 1 


1 " " T 4 


V - T t - -'"'I 


| 88 | 58 | 


| 344 | 20 | 


I 89 | 59 


| 345 J 20 | 


| 90 | 5A 


! | 346 | 00 | 


| 91 | 5B 


$ 1 347 J 00 | 


| 92 1 5C I 


* | 34 8 | 00 { 


| 93 | 5D 


) | 349 I 00 | 


1 914 | 5£ ! 


| 350 | 00 | 


I 95 I 5F 


| 351 | 00 I 


| 96 | 60 | 


| 352 | 00 | 


) 97 | 61 


/ | 353 | 00 | 


| 98 | 62 | 


| 354 | 20 1 


| 99 I 63 


1 355 | 20 | 


| 100 \ 64 | 


| 356 | 20 | 


| 101 I 65 


] 357 I 20 | 


[ 102 J 66 | 


| 358 J 20 | 


| 103 | 67 


I 359 J 20 | 


| 104 | 68 | 


I 360 | 20 | 


| 105 | 69 


I 361 J 20 J 


I 106 | 6A | 


| 362 j 20 j 


| 107 1 6B 


1 363 | 00 | 


1 108 | 6C | 


% | 364 | 00 | 


| 109 J 6D 


1 365 J 00 f 


| 110 | 6E | 


> | 366 | 00 | 


| 111 | 6F 


? 1 367 1 00 I 


| 112 | 70 | 


| 368 j 00 | 


| 113 1 71 


| 369 ] 20 | 


| 114 J 72 | 


| 370 j 20 J 


| 115 | 73 


| 371 1 20 J 


| 116 | 74 | 


| 372 1 20 | 


I 117 I 75 


| 37 3 | 20 | 


I 118 | 76 | 


| 374 j 20 | 


| 119 | 77 


i 375 | 20 | 


I 120 | 78 | 


| 376 | 20 | 


| 121 | 79 


| 377 | 20 | 


i 122 I 7A | 


: | 378 | 00 J 


I 123 | 7B 


# | 379 | 00 j 


| 124 | 1C | 


a | 380 j 00 I 


I 125 1 7D 


| 381 | 00 I 


| 126 | 7E | 


| 382 j 00 j 


| 127 J 7F 


| 383 j 00 J 


| 128 | 80 | 


I 384 | 20 J 


| 129 | 81 


a | 385 I 00 1 


| 130 J 82 | 


b | 386 j 00 [ 


1 131 | 83 


c | 387 | 00 J 


| 132 | 84 | 


d | 388 | 00 | 


| 133 | 85 


e | 389 j 00 \ 


I 134 | 86 I 


f | 390 | 00 { 


| 135 | 87 


9 I 391 1 00 | 


I 136 I 88 ! 


h | 392 I 00 J 


I 137 | 89 


i | 39 3 j 00 | 


J 138 | 8A i 


J 394 J 20 | 


| 139 J 8B 


| 395 | 20 | 


J 140 J 8C | 


1 396 | 20 | 


I 141 1 8D 


I 397 I 20 j 


1 142 | 8E | 


| 398 | 20 | 


| 143 | 8F 


1 399 j 20 | 


| 144 j 90 | 


| 400 j 20 | 


t i jiiiju , „ ,„. ., „„ ^ „ j 


L L X -1 
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Table 21. 


Prototype 


output char act 


er translation table Cpart 4 of 5) 


| Translation Entry | 

L -_ , J- . 


Function Code j 

^-^^^ _ — r™ — «-^- 1 


r - t- 


— ™ 1 T 




| Byte |Code (Hexa- 




j Input Code j 


| CDeciitial) j 


decimal) 

„ „., , j 


Character | 


Byte (Decimal) j (Hexadecixral) | 


r t 

I 145 | 


_ ., ^ 

91 


1 j 1 


401 | 00 | 


| 146 I 


92 


k 1 


402 | 00 | 


I 147 j 


93 


1 1 1 


403 j 00 | 


1 148 j 


94 


ra | 


404 | 00 | 


| 149 j 


95 


1 n | 


405 | 00 | 


1 150 | 


96 


o | 


406 | 00 | 


1 151 I 


97 


1 P 1 


407 j 00 | 


1 152 | 


98 


q i 


408 | 00 | 


1 153 1 


99 


1 r 1 


409 j 00 1 


1 154 I 


9A 




410 j 20 | 


1 155 j 


9B 




411 | 20 | 


I 156 | 


9C | 




412 | 20 | 


1 157 I 


9D 




413 | 20 1 


I 158 | 


9E 




414 j 20 | 


I 159 | 


9F 




415 | 20 J 


| 160 | 


A0 | 




416 | 20 | 


1 l^l | 


Al 




417 | 20 | 


1 162 | 


A2 


s | 


418 | 00 | 


1 163 J 


A3 


t 1 


419 J 00 I 


| 164 | 


A4 


u | 


420 | 00 | 


1 165 I 


A5 


1 V | 


421 | 00 I 


I 166 j 


A6 ; 


w | 


422 1 00 | 


1 167 1 


A7 


1 x ] 


423 | 00 | 


i 168 1 


A8 


y 1 


424 j 00 1 


1 169 I 


A9 


1 z 1 


425 1 00 | 


1 170 I 


AA 




426 1 20 | 


1 171 I 


AB 




427 J 20 I 


1 172 | 


AC 




428 | 20 | 


| 173 | 


AD 




429 | 20 | 


I 174 | 


AE 




43 j 20 | 


I 175 | 


AF 




431 | 20 | 


1 176 J 


BO 




432 | 20 | 


1 177 | 


Bl 




433 J 20 1 


1 178 1 


B2 




434 | 20 | 


I 179 | 


B3 




435 | 20 1 


I 180 1 


B4 




436 | 20 | 


1 181 | 


B5 




437 j 20 I 


| 182 | 


B6 




438 | 20 I 


I 183 | 


B7 




439 | 20 J 


I 184 J 


B8 | 




44 j 20 | 


I 185 I 


B9 




441 | 20 | 


| 186 j 


BA 




442 | 20 | 


| 187 1 


BB 




443 | 20 | 


| 188 | 


BC 




444 j 20 | 


1 189 | 


BD 




445 | 20 | 


1 190 1 


BE 




44 6 ] 20 | 


1 191 | 


BF 




447 | 20 I 


1 192 1 


CO : 




44 8 j 20 | 


1 193 | 


CI 


! A I 


449 j 00 | 


1 194 | 


C2 


B | 


450 j 00 | 


1 195 | 


C3 


C J 


451 J 00 | 


| 196 | 


C4 j 


D 1 


452 I 00 j 


I 197 | 


C5 


E | 


453 1 00 1 


| 198 | 


C6 j 


F | 


454 | 00 | 


1 199 | 


C7 


G | 


455 | 00 | 


i 200 | 


C8 | 


H I 


456 I 00 | 


1 201 I 


C9 


I | 


457 J 00 J 


L..^.. ^-Kw. 


— J 


L A_ 


_ - L , , , .„ -J 
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Table 


21. 


Prototype output char 


acter translation table (part 5 of 5 ) 


r ■ 












— f— 


_. , . 1 


1 

| Byte 


Translation 


Entry 


1 
! 


Function Code | 
1 Input Code | 


1 


Code 


(Hex a- J 




| (Decimal ) | 


deciraa 1) 


I 


Character 


1 


Byte CDeciiral) j (Hexadecirral) | 


L .. 


__+. 


». — _ 


_-.__—- 


.+_ 


„—._„.-..._ 


-+- 


_„. — .,.«-.„««.« — . — ^ , — , j 


| 202 


1 




CA 


1 




t 


458 | 20 | 


| 203 


i 
i 




CB 


1 




! 


459 j 20 | 


| 204 


1 




cc 


I 




1 




j 205 


1 




CD 


I 




1 


461 | 20 | 


| 206 


i 




CE 


! 




I 


462 | 20 | 


| 207 


1 




CF 


! 




I 


463 | 20 | 


1 208 


1 




DO 


f 




1 


464 j 20 | 


j 209 


i 




Dl 


! 


J 


i 


46 5 j 00 | 


| 210 


1 




D2 


1 


K 


! 


466 | 00 | 


j 211 


1 




D3 


! 


L 


i 


467 j 00 1 


| 212 


! 




D4 


! 


M 


1 


468 | 00 J 


t 213 


1 




D5 


i 
i 


N 


I 


469 j 00 1 


1 214 


;• 




D6 


S 


O 


I 


470 | 00 1 


| 215 


! 




D7 


1 


P 


i 


471 j 00 | 


| 216 


! 




DB 


i 


Q 


I 


472 | 00 | 


1 217 


I 




D9 


i 


R 


I 


473 j 00 | 


| 218 


! 




DA 


i 




! 


474 j 20 I 


| 219 


1 




DB 






1 


475 | 20 J 


| 220 


' 




DC 


! 




1 


476 j 20 | 


1 221 


i 




DD 


! 




I 


477 j 20 | 


| 222 


i 




DB 


I 




1 


478 j 20 | 


I 223 


! 




DF 


! 




S 


47 9 | 20 | 


1 224 


i 




E0 


I 




i 


480 j 20 | 


I 225 


; 




El 


i 




1 


481 1 20 1 


1 226 


! 




E2 


! 


S 


1 


482 j 00 | 


| 2 27 


i 




E3 


1 


T 


! 


483 | 00 | 


| 228 


! 




E4 


i 


U 


1 


484 j 00 | 


| 229 


' 




E5 


1 


v 


\ 


485 J 00 J 


| 230 


I 




E6 


! 


w 


\ 


486 j 00 | 


1 2 31 


i 




E7 


! 


X 


\ 


487 j 00 | 


| 232 


1 




E8 




Y 


1 


488 | 00 I 


| 233 


1 




E9 


' 


z 


1 


48 9 | 00 | 


| 234 


I 




EA 


1 




i 


490 | 20 | 


| 235 


: 




EB 


! 




1 


491 j 20 | 


| 236 


1 




EC 


! 




i 


492 j 20 1 


| 2 37 


i 




ED 


S 




1 


49 3 j 20 1 


| 238 


1 




EE 


! 




1 


494 j 20 | 


| 2 39 


1 




EF 


! 




1 


49 5 1 20 | 


| 240 


1 




F0 


; 





i 


496 j 00 | 


1 241 


1 




Fl 


1 


1 


i 


497 j 00 1 


j 242 


1 




F2 


< 

i 


2 


i 


498 j 00 | 


| 2 43 


! 




F3 


) 


3 


i 


499 | 00 I 


1 244 


! 




F4 


I 


14 


i 


500 j 00 | 


| 245 


1 




F5 


! 


5 


i 


501 1 00 | 


| 246 


i 




F6 


i 


6 


! 


502 j 00 1 


1 247 


i 




F7 


l 


7 


1 


503 j 00 1 


| 248 


1 




F8 


i 


8 


i 


504 j 00 1 


| 249 


1 
I 




P9 


! 


9 


! 


50 5 1 00 1 


| 250 


I 




FA 


i 




i 


506 j 20 I 


1 251 


1 




FB 


i 




i 


507 | 20 | 


| 252 


i 




FC 


i 




1 


508 ( 20 ) 


I 253 


I 




FD 


1 




1 


509 | 20 1 


| 254 


! 




FE 


I 




1 


510 j 20 | 


1 255 


! 




FF 


i 




I 


511 1 20 I 


j_ 






__.„ , 


-X- 


rii n 


-X- 


_. X - i 
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Some characters that appear in Tables 20 and 21 have special functions. 
The definitions of these functions are presented below. 

1. Control characters (in order of appearance) 



PF Punch Off 

HT Horizontal Tab 

LC Lowercase 

DEL Delete 

RES Restore 

NL New Line 

BS Backspace 

IL Idle 



DS Digit Select 
SOS Start of 

Significance 
FS Field Separator 
BYP Bypass 
LF Line Feed 
ECB End of Block 



PRE Prefix 

SM Set Mode 

PN Punch On 

RS Reader Stop 

UC Uppercase 

EOT End of Transmission 

SP Space 



2. Special graphic characters (in order of appearance) 



Cent Sign 


* Asterisk 


> 


• Period, Decimal Point 


) Right Parenthesis 


? 


< Less-than Sign 


; Semicolon 


: 


( Left Parenthesis 


-. Logical NOT 


# 


♦ Plus Sign 


- Minus Sign, Hyphen 


a 


J Logical OR 


/ Slash 


• 


£ Ampersand, Logical AND 


f Comma 


= 


! Exclamation Point 


% Percent Sign 


« 


$ Dollar Sign 


_ Underscore 




CHARACTER SWITCH TABLE 







Greater-than Sign 
Question Mark 
Colon 
Pound Sign 
•At" Sign 
Prime, Apostrophe 
Equal Sign 
Quotation Mark 



The table of miscellaneous control characters and the translation tables 
described above make up the character switch table. The table of mis- 
cellaneous control characters includes: 

Source list EOB character 

defines the end of an input block. Its initial value is X t 26 i . 
(Do not change the value.) This character should not be used as 
input within a command statement. 

Command system continuation character 

indicates that a line is being continued. Normally, an EOB occurs 
when the carriage is returned. If the last character before a car- 
riage return is a command system continuation character, the line 
is continued past the carriage return. Initially, this character 
is a hyphen (X'SO 1 ). 



Command system break character 

tells the system that a command follows, 
is an underscore (X* 6D* ) . 



Initially, this character 



Transient statement prefix character 

is an indicator that whatever follows is sent to a predetermined 
entry point for execution. Initially, this character is a vertical 
stroke (X'^F* ). 

Concatenation character 

indicates that the next line should be concatentated with this 
line. This character must be the last character of a line of data 
for the text editor, and the CONREC implicit operand must be set to 
Y. The system-supplied value for the concatenation character is 
colon (X'TA"). For more information, see "Concatenating Input Rec- 
ords* in Section 2 of Part II. 

System scope mask 

controls searches for explanatory messages issued by the user pro- 
mpter. Its default value is X 1 29 i . The use of the system scope 
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mask is explained under "Message File Construction* in Section 5 of 
Part II. 

User scope mask 

works in the same way as the system scope mask works, but on user* 
created messages in the USER LIB. The user may set this mask 
according to his own search logic X*29 p . The default value is 
X f 29* • 

Command prompt string 

is issued by the system and requests that a command be entered. 
This may be a string of up to eight characters. The initial 
default is an underscore followed by a backspace and a carriage* 
return suppression character (colon). 

SYSIN keyboard/card reader switch 

indicates the type of device from which input will be accepted by 
the system. It may be set with a K for a terminal keyboard, or 
with an E to indicate either the keyboard or the card reader. If a 
user specifies K as the switch setting, the system does not reco- 
gnize his subsequent specification of a card reader as the input 
device. The initial value is E. 

Carriage return suppression character 

indicates that carriage return is suppressed when it is the last 
character in a message being written to SYSOUT by the command ays* 
tem. In this case, the system does not add a new- line character to 
the text. The system- supplied value is a colon <X*7A - ). 
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APPENDIX D: CONTROL CODES AND CHARACTERS 



Tables 22-25 contain control codes and characters that can be used for 
formatting printed output and for selecting stackers for punched output. 



Table 22, Printer codes 



f 




Function | 


Byte 


— — , — ..j 

Value (hexadecimal) | 


L 






, -™_r r„.,,,.l- 










1 


r — 






f 










| Write 


(no 


automatic space) 1 






01 






(Write 


and 


space 1 


line after printing ( 






09 






I Write 


and 


space 2 


lines after printing | 






11 






| Write 


and 


space 3 


lines after printing | 






19 






| Write 


and 


skip to 


channel 1 after printing | 






89 






(Write 


and 


skip to 


channel 2 after printing ) 






91 






(Write 


and 


skip to 


channel 3 after printing | 






99 






(Write 


and 


skip to 


channel 4 after printing ( 






Al 






(Write 


and 


skip to 


channel 5 after printing | 






A9 






(Write 


and 


skip to 


channel 6 after printing | 






Bl 






(Write 


and 


skip to 


channel 7 after printing ( 






B9 






(Write 


and 


skip to 


channel 8 after printing | 






CI 






(Write 


and 


skip to 


channel 9 after printing | 






C9 






(Write 


and 


skip to 


channel 10 after printing! 






Dl 






(Write 


and 


skip to 


channel 11 after printing ( 






D9 






(Write 
| Note; 


and 


skip to 


channel 12 after printing) 

i. 






El 






t To obtain 


the corresponding carriage- 


-control 


operations 


"i 

C space | 


( or skip to channel n) without printing, increase 


the value of the 




| low-order digit by hexadecimal 2. Examples 


space 


two lines - 


13; 




| skip 
i 


to < 


channel f 


> - AB; skip to channel 9 - 


CB. 








j 



Table 23. FORTRAN control characters* for the printer 



Function 



I 

j _ 

(Skip no lines before printing 
| Skip 1 line before printing 
(Skip 2 lines before printing 
(Skip 3 lines before printing 
(Skip to channel 1 before printing 

2 

3 

5 

6 

7 

(Skip to channel 8 before printing 
(Skip to channel 9 before printing 
(Skip to channel 10 before printing 
(Skip to channel 11 before printing 
(Skip to channel 12 before printing 



(Skip to channel 
(Skip to channel 
(Skip to channel 
(Skip to channel 
(Skip to channel 
| Skip to channel 



before printing 
before printing 
before printing 
before printing 
before printing 
before printing 



Character 




,♦ FORTRAN control characters are defined by American National Stand- 
( ard FORTRAN , ANSI X3. 9-1966. 
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Table 24. IBM 2540 punch machine codes 



TYPE AA 
Read, 
Read, 
Read, 

TYPE AB 



Function 



h 



feed, and select stacker Rl 
feed, and select stacker R2 
feed, and select stacker RP3 



Read and no feed or stacker selection 
Read, feed, and no stacker selection 



TYPE BA 

Feed and select stacker Rl 

Feed and select stacker R2 

Feed and select stacker RP3 

PFR write, feed, and select stacker PI 

PFR write, feed, and select stacker P2 

PFR write, feed, and select stacker RP3 



TYPE BB 

Write, feed, and select stacker PI 

Write, feed, and select stacker P2 

Write, feed, and select stacker RP3 



EBCDIC 



| Col uxr»n 
-+ — 



Binary) 



02 
42 
82 






C2 
D2 



+~ 



23 
63 
A3 
09 
49 
89 



01 
41 
81 



22 
62 
A2 



E2 
F2 



-H 



23 
63 
A3 
29 
69 
A9 



21 
61 
Al 



Table 25. FORTRAN control characters 
for the punch 



J Function | Character | 

| Select punch pocket 1 I V | 

Select punch pocket 2 | W | 






-JL 



i 
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APPENDIX E: DETAILED DESCRIPTION OF DDEF COMMAND 



This appendix describes special use of the DDEF command. To define typ- 
ical public data sets, see the DDEF command description in Part III. A 
typical public data set is created with the virtual access method (VAM) 9 
is sequential or indexed sequential and resides on direct access public 
storage. 

Table 26 lists the required and optional fields of the DDEF command for 
various types of data sets* The complete command format illustration of 
the DDEF command is shown in Table 26. 



Table 26. Format illustration of the DDEF command 



f T 

1 Operation | Operand 



DDEF 



i 



DDNAME=data definition name 
C , DSORG= CPS J RX | VI J VP | VS > ) 
,DSNAME=data set name 

f DCB=(Cdata definition name] [ ,DSORG=data set organization] 
[ f MACRF=type of macros] [ # BUFL=buf fer length! 
[ r DEVD=device type] ( f BUFN0=n umber of buffers] 
[,BFTEK=buffer technique] 
[ 9 NCP=consecutive macro number] 
[ f R£CJM=record format] I ,0PTCD=(A1 wl ] 
ULRECL=record length] 

[ f BLKSIZE=block length] [ ,KE¥LEN=key length] 
C f DEN=t:ape density] 
[,TRTCH=data conversion] 
[, EROPT=error option] [ ,PAD=padd in g] 
C f RKP=key displacement] 
[ # IMSK=error recovery procedures] 
C,BUFOFF=n]> 

DA f, direct access type] 
,UNIT=( TAt # tapedevice type] ) 

device 

[, SPACE=( CCYL| TRK( record length* ^primary [ f secondary] [,HCLD]> 

I,V0LUME=( [volseqno | PUBLIC | PRIVATE] , [volserno J PRIVATE) , 
[volsernoj PRIVATE],. •• )] 

[,LABEL=(Cfile sequence number] i 9 CNL |SLISUL| ALJAUL}] 
£ f RETPD=retention period])] 

I , DI SP= { MOD | CLD J NEW> ] 

I , OPTION={CONC | JOBLIB] ] 

[ f RET=retention code] 

[ # PROTECT={YIN>] 



J 



DDNAME 

specifies the symbolic data definition name that is associated with 
the data set and that provides a link between the data control 
block CDCB) in the user's program and the data set definition. 
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Specified as : From one to eight alphameric characters, the first 
of which must be alphabetic. To define the PCSOOT data set for the 
DUMP command, PCSOUT should be given as the data definition name* 
DDNAME may not begin with SYS? these characters are used to prefix 
system-reserved data definition names* 

Note : when DDEF is used by an assembler language user, the name 
specified for DDNAME must be the same as the name specified for the 
DDNAMl operand in the DCB macro instruction. when DDEF is employed 
by a FORTRAN user, the name specified for EDNAME must be "FTxx- 
Fyyy*, where "xx" is the two-digit data set reference number, and 
•yyy" is the three-digit file sequence number in his FORTRAN 
program. 



DSORG 



indicates the organization of the data set being defined, 
ble 27.) 



(See Ta- 



Specified as : 



PS - 
RX 

VI - 
VP 
VS - 



- QSAM or BSAM (physical sequential access methods) 

- IOREQ (I/O request) 

- VISAM (virtual indexed sequential access method) 

- VPAM (virtual partitioned access method) 

- VSAM (virtual sequential access method) 



System default : VI, 



Table 27. Data set organization requirements (part 1 of 2 ) 



Data Set 
Characteristics 



|_ 



-DSOHG*- 



PS 



^ 

]Any data set on a 
| public volume 

,. 

| Any data set on a 
(private volume 



+_ 



|Any member of a parti- 
tioned data set 
1 



JSYSIN data set 



( Data Sets Created by 
j or Used by Language- 
j Processing Cogmands 

I 

(Source data set for 

(language processing 



1~ 



j. 

| Source statements 

| stored as part of the 

JSYSIN data set 

I- 



f — H~- 

X 



VI 



VP 



VS 



~h 



Comments 



PS applies to tape or direct access 
volumesi VS, VI , and VP apply only 
to volumes on direct access devices. 

1 



Same partitioned data set may 
include both VS and VI members. 
(Member must be either VS or VI.) 



Line data set only; if source data 
sets are entered from the terminal , 
a line data set is built 
automatically. 



Line data set will be built from 
source statements. 



(Object module produced 
(by the language pro- 
| cessor 
I 

L 



J L. 



Object module automatically becomes 
a member of the most recently de- 
fined job library, if any, or of the 
user's library (OSERLIB). 
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Table 27. Data set organization requirements (part 2 of 2) 



1 1 -t ■ 4 

t rim*. =» c***" L _ _i Tiff AP fl* . .. — - — ~ i— — 1 1 


| Data set f— — — y— -wjurw*— t T 1 
1 Characteristics j PS j VI | VP | VS | Comments j 
i || if f j 


J Job library I 1 | x | "| 

I i i 4 - i i - 


(Listing data set pro- | | x | | | 
|duced by the language 1)111 

(processor 1 1 1 1 i 

■ t i i.»- i 4- .--.... - ,„ .„ ,, , _ . .„.,„.. « 


1* — ""■— — ■ ■ i i i i " ""■ "-■"■■■ i 

(Data Sets Used for j I 1 I 1 


II/O Operations 11111 


1PCSOUT data set | 1*1 1 1 

* -, - 1 .- ... n- -, I - -■ i - 4 - | , : n - - » 


1 ---■ -J---- J- -- ..J — .- .f. | . .... _ _■»»,.. «. ,| 

(Input to the WT | 1*1 1 * 1 
| Command 1 1 1 1 I 
i it i--. -i- -i - ., ..-,.,.,., i 


f- t I T T T ■ Ll '-j««-u'"--l-l- t| 

(Input to the PRINT ( x ( x 1 ] x | j 

(Command 1 1 I I I 1 

i l 1 i .-4- * -- <* 


f " Ul " ' "' ' ' " 1 I T T 1 ' -"■"——' «fl 

(Input to the PUNCH | | x | | x | j 
(Command 1 1 1 1 1 ( 


(Data sets for 111(1 | 


(Special Command Usage 1 1 1 1 1 § 


(Data set used by the | | x | | (Line data set only. ] 
JCDD command 11)11 1 


(Data set used by the | | x ) | [Line or language processor listing | 
(LINE? command 1 1 1 I ] data set only. | 

1 111™, ^ 1 ^ ,-, T n 1 - , ,. - r - ™ -r ^ „ ,„ - ■* 


1 ' I 1 T T -— f— - ----------- 1 _ __.. I| 

[Data set created by | | x | x | x (User option; if VI, it oust be line | 
jthe DATA command 1 1 1 1 Jdata set. The member may be VS line) 
1 III 1 (or VI line. j 

i . .._ - ,, .-I.. -.4 .4 ,-4- 4 , -■- J 


1 .-j--.--- 1 . .|----^-.---f -.^...— — .--— _—- ,i| 

j Data set created by | | x | x ) | User option determines whether VI is j 
(the MODIFY command | | I | (for a line data set. The member I 
| j || 1 | ] must be VI. | 

i_ „ t i ,,, .,„, i_. „.,,., .... i ., i - , i 


f t i f I r . ■ "l 
| Data set created by ] | x | x | (User option determines %&ether VI | 
(the text editor 1 1 1 1 lis for a line data set. The member | 
| till (must be VI. | 

l .„ m _,. l , l „ l. 4..,. - .1 -i 


(♦Note: If one DSORG option is checked, the data set must be that orqanization. 1 
| If more than one option is checked, select either organization! | 



OSNAME 

specifies the name under which the data set nay be cataloged or re- 
ferred to for temporary reference. 

Specified as ; a fully qualified data set naire or member name of a 
YPAM data set. When specified, the member name is enclosed in 
parentheses and immediately follows the VPAM data set name. 

Note: When a data set created under OS or OS/VS is introduced into 
TSS for the first time, the name specified for DSNAME must be pre- 
ceded by an asterisk (*). Subsequent references to this data set 
are not prefixed by the asterisk. The data set name preceded by an 
asterisk may have a maximum of 44 characters. 
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DCB 



UNIT 



For ASCII input, you may specify any non alphameric characters in 
DSNAME. However, if non alphair eric characters are specified, DSNAME 
must be preceded by a blank and must be enclosed by single quota- 
tion marks. For example: 

DSNAME= "dsname' 

specifies data control block information. 

Detailed descriptions of the DCB suboperands are given in Assembler 
Programmer's Guide and FORTRAN Programmer's Guide . 

Note ; If the data set is on tape or will be on tape, the DEN sub- 
operand must be furnished to specify tape density, unless the tape 
conforms to the DEN default value, which is set at system 
generation. 

specifies the type of device required by the data set. Direct 
access devices may be specified for either public cr private 
volumes. The other types of devices and unit affinity may be spec- 
ified for private volumes only. Allowable kinds of devices are 
specified at system generation and, therefore, may be changed. 

DA I, direct access type] 

specifies the type of direct access device. 

Specified as : 

2311 - 2311 disk 3330 - 3330-1 disk 

2314 - 2314/2319 disk 333B - 3330-11 disk. 

System default : the type of direct access device specified at 
system generation. 

TAl,tape device typel 

specifies magnetic tape device is required for the data set. 

Specified as : 

7 - seven-track tape, data converter not required 
7DC - seven-track tape with data converter feature 
9D2 - 9-track tape with 800 bpi capability 
9D3 - 9-track tape with 1600 bpi capability 
9D4 - 9- track tape with 6250 bpi capability 

System default : the type of tape device specified at system 
generation. 

device 

specifies the symbolic device address of a nonstandard device. 

Specified as : a four-digit hexadecimal symbolic device 
address . 

SPACE 

indicates the direct access storage allocation for the data set. 

Specified as : 

CYL 

space requirements are expressed as number of cylinders. 
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TRK 

space requirements are expressed as number of tracks, 

(record length) 

space requirements are expressed as a decimal number that speci- 
fies the average length of the physical records; the number must 
not exceed 32,767. 
System default ; if the data set organization is QSAM or BSAM (see 
DSORG), the space requirements are assumed to be expressed in terms 
of cylinders. If the data set organization is VISAM, VPAM, or VSAM 
(see DSORG) , the space requirements are assumed to be in pages (of 
4096 bytes). 

Note : this field must be defaulted if the data set organization is 
VAM. 

(primary) 

a one- to three-digit decimal number that indicates the amount of 
space to be allocated initially. This operand may express space 
in terms of tracks or cylinders or in terms of number of pages. 

System default ; the primary space allocation specified at system 
generation is assumed « 

(secondary) 

a one- to three-digit decimal number specifying the amount of ad- 
ditional space to be allocated each time the space already allo- 
cated has been exhausted and more data is to be written. No more 
than 256 pages are allocated at one time even if a number greater 
than 256 is specified. 

System default ; the secondary space allocation specified at system 
generation. 

specifies the unused storage assigned to the data set being defined 
is not to be released when the data set is closed. 

Specified as ; HOLD 

System default : the unused storage is released when the data set 
is closed. 

Note : If the SPACE operand is not specified, the direct access 
storage allocation specified at system generation is assigned. 

If DISP=0LD, the SPACE operand is ignored. 

VOLUME 

specifies the volume on which the data set resides. This field 
must always be used when creating a new data set residing on a pri- 
vate volume or when referring to an existing uncataloged data set 
residing on a private volume. This field must also be used when 
expanding an existing private data set. When expanding an existing 
private cataloged data set, only the new volumes to be added to the 
data set (PRIVATE or volume serial number) need be referred to. 
This field is never required for data sets on public volumes. How- 
ever, this field may be specified for new data sets on public 
volumes, if only existing public volume serial numbers are speci- 
fied. Initial space allocation is limited to the specified 
volumes. 

Specified as : 
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HOLD 



(volseqno) 

a one- to four-digit number specifying the volume sequence number 
of the first volume of the data set to be read or written. It is 
meaningful only if the data set has SAM organization, is cata- 
loged, and its earlier voluwes are to be skipped* 

PUBLIC 

indicates that the data set is to be placed on public storage 
volumes, PUBLIC may not be specified when a volume serial number 
is used. 

PRIVATE 

specifies that volumes are to be allocated from the system pool 
(that is f the scratch or disk available to the operator). Once 
assigned, the volume remains the user"s # exclusively, until he 
notifies the operator that it can be returned to the pool. The 
user must use this option to request initial or additional 
scratch volumes for data sets on private volumes. PRIVATE must 
not be specified when a volume serial number is used. 

(volserno) 

from one to six alphameric characters specifying the volume seri- 
al numbers that identify the volumes on which the data set 
resides. This suboperand is required for old, uncataloged data 
sets that reside on private volumes or to specify initial or ad- 
ditional volume serial numbers for data sets on private volumes; 
it is optional for new data sets that will reside on public 
volumes. For ASCII tapes with ncnalphameric characters in the 
volume serial number, the volume serial number, preceded by a 
blank, must be contained in apostrophes. 

System default ; if VOLSEQNO is specified, the data set is assuired 
to be cataloged, and the volume serial numbers are retrieved from 
the catalog. If PRIVATE or PUBLIC is specified, VOLSERNO must be 
omitted, and a volume serial number is assigned by the systeir. 

Note: VOLUME may be defaulted if a new data set is to be created 
on a public volume or if an old, cataloged data set is being 
defined. 

LABEL 

specifies the labeling conventions. 

Specified as ; (file sequence number) — a one- or two-digit deci- 
mal number specifying the file sequence number of a data set resid- 
ing on a tape* and that has multiple data sets on a tape volume. 

System default s the data set is assumed to be the first (or only) 
one on tne tape volume. 

Five suboperands specify either the type of labeling desired or the 
absence of labeling : 

NL - no labels 

SL - standard labels (as specified at system generation) 

SUL - standard and user labels 

AL - standard ASCII labels 

AUL - standard ASCII and user labels 
Systeir default s SL. 
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Ihe following suboperand can be used to indicate the number of days 
a data set is to be saved, 

RETPD 
retention period 

Specified as ; a four-digit decimal number; this suboperand is 
applicable for data sets on direct access volumes or labeled 
tapes. 

System default ; days. 

Note ; If the entire LABEL operand is defaulted, the labeling con- 
ventions specified at system generation are assumed, unless the 
data set being defined is already cataloged. If the data set is 
cataloged already, label information is retrieved from the catalog. 

DISP 

specifies whether the data set already exists or is to be created. 

Specified as ; 

MOD - the data set being defined exists? an addition to it is being 
made 

OLD - the data set being defined exists 

NEW - the data set being defined has not yet been created 

Note ; MOD causes logical positioning after the last record 
of the data set. 

System default ; OLD if the data set is cataloged; NEW if it is not 
cataloged. 

Note ; If the user specifies DISP as OLD, NEW, or MOD, and this 
does not agree with the actual state of the data set, then; 

In conversational mode, the user receives a diagnostic message 
so that he can correct this error. 

In nonconversational mode, the task is abnormally terminated. 

OPTION * 

specifies that either a job library is being defined or a data set 
is being added to the concatenation of data sets indicated by the 
DDNAME operand. 

Specified as ; 

CONC 

only SAM data sets that are not job libraries can be concatenated 
with one or more data sets having the same DDNAMEs. The order of 
access for concatenated data sets is the same as the order in 
which they are defined. 

JOBLIB 

specifies that the data set being defined is to be used as a job 
library. The name specified in the DSNAME operand is entered 
into the program library list. 



RET 



specifies the catalog attributes to be assigned to a VAM data set. 
Specified as ; P or T, C or L, or U or R. 
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P — permanent storage 

T — temporary storage 

C — erase at CLOSE 

L — erase at LOGOFF 

U — unlimited access 

R — read-only access 

System default : PU is assumed; when T is specified, LU is assumed; 
when P is specified, U is assumed* 

Note : A data set is not erased at logoff if a RELEASE command has 
been issued for it and the retention code has been specified as 

RET=T. 

PROTECT 

specifies whether to mount the tape with or without the file- 
protect ring. 

Specified as : 

Y - mount tape with ring out. 
N - mount tape with ring in. 

System default : If DISP is NEW or MOD, the tape is mounted with a 
ring inserted. If DISP is OLD, there is no default; the decision 
depends on the installation^ operational procedure. 

functional Description : The DDEF command causes a system entry tc be 
established for the data set definition. The link between this defini- 
tion and the problem program* s reference to the data set (through the 
DCB) is the DCNAME. The entry containing the data set definition is 
maintained until the user logs off or until, through the RELEASE com- 
mand, the data set definition is deleted. 

The DDEF command also results in a request for device allocation and 
volume mounting when the defined data set is private and resides on a 
demountable volume such as a reel of tape or a disk pack; A request for 
a private device will not be fulfilled if the user has exceeded his 
ration. 

Programming Notes : The DDEF command that defines a cataloged data set 
is brief and simple. The required operands are DDNAME and DSNAME. 
DSORG is net necessary because the organization of the data set is de- 
scribed in its catalog entry. Other operands are unnecessary - 

DDEF commands that define uncataloged data sets may be divided into two 
groups: those defining data sets that are generated during execution of 
the program, but do not yet exist; and those defining existing data 
sets. Old, uncataloged data sets can exist only on private volumes. 

To define a new data set that is to be written on a public volume, the 
user may use the DDNAME, DSNAME, DSORG, SPACE, and LABEL operands. 
Exactly which fields he uses, other than the required DDNAME and DSNAME, 
depends on the characteristics of the particular data set to be defined. 

To define a new data set that is to be written on a private volume, the 
user must give the DDNAME, DSNAME, UNIT, and VOLUME operands. He may 
also furnish the DSORG, DISP, SPACE, and LABEL operands. 

The user defines an old, uncataloged data set as it exists on his pri- 
vate volume. He must use the DDNAME, DSNAME, DISP, VOLUME, and UNIT 
operands. He may also use the DSORG and LABEL operands. The DCB 
operand is required to specify tape density for any data set on tape, 
unless the tape density matches that established at system generation. 
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To change the DDNAME assigned in a previous DDEF command, the user must 
issue a DDEF command with a new DDNAME and the same D SHAME that was pre- 
viously specified. Any other operands entered are ignored. If the user 
wants to change the other parameters , he must issue a RELEASE comirand to 
delete the previously issued DDEF command and re-issue the DDEF command 
to establish a new system entry for the data set definition- Table 28 
summarizes some operations for which the DDEF command is used. 
Table 28. Typical use of DDEF operands 



-T T" 



Operation 



Head cataloged data set 



Read uncataloged data set 

Write data set on public 
volume 



IX] 
„ f „_ f f f „ H f . 

[X] 



^ \ — + 1 ^ + — + . 



Write data set on private 
volume 



D 
D 
N 
A 
M 
E 



D 
S 

R 
G 



CXI 



IXl 



„ + + 

CXl 



- + _„ + + ™ + 



[XI 



Modify data sets on private 
volumes 

Concatenate cataloged data 
sets while reading private 
volumes (for each concate- 
nated data set except the 
first in concatenation) 

|. - -_ 

(Note: U indicates that the operand may be used, but is not mandatory.) 

L - . . , . . J 



D 
S 
N 
A 
M 
E 



C 
I 
S 
SI 



D 
C 
E 



[X] 



~+~H +— - 



u 

N 
I 
T 



S 

SI 

A 

C 

E 



i 1 f 1 



IX) 



[X] 



— + — -I — 

[Xll I IX] 



-JL J X- 



V 

o 

L 
U 
M 
E 



+ 

IX] 

-H f 



L 
A 
B 

E 
L 



(XI 





p 

T 

I 

N 



.x i 



The following examples show one way of entering a CCEF command to get 

the specified operation performed. In each example, DDNAME, DSORG, and 

DSNAME are specified positionally ; the other operands are given in key- 
word notation. 

1. Read a cataloged data set: 

ddef ddn,testl 

2. Read an uncataloged data set: 

ddef ddnl , ps ,test2 ,unit=( da, 2311) ,volume= ( ,012300) ,disp=new 

3. Write a data set on a public volume: 

ddef ddn2,vp,test3 

4. Write a data set on a private volume: 

ddef ddn3,ps,test4,unit=(ta,9),volume=(private) 
The VOLUME operand could be entered as: 
volume- (, 005431) 

5. Modify any data set of a private volume: 
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ddef ddn4,ps,test5,unit=(ta # 9) ,volume=< ,012301) ,disp=mod 

6. Concatenate cataloged data sets while reading private voluraest 

ddef ddn6,ps,test6,disp=old 

ddef ddn6 , ps ,test7 ,disp=old,option=conc 

ddef ddn6 , p6 ,test8 ,disp=old,option=conc 

The DDEF command also has several special uses. Among them are: 

1. Define a job library: 

ddef ddl,vp,dsnl,option=joblib 

No other operands are necessary. If the data set already exists, 
it is defined as a job library; if it does not exist, a new job li« 
brary is created. 

2. Define a data set for dumps. Mandatory operands must be given. 

ddef pcsout,VI,dumpl 

To complete the DCB of a data set at execution, include the DCB operand* 
Other operands are included as needed for the particular data set. 

To concatenate data sets, use the CPTION=CONC operand. Other operands 
are provided ay the user as needed for a particular data set. The 
OPTION=CONC operand must be given in the DDEF command for data sets to 
be concatenated, except for the first-defined data set in the concatena- 
tion. Each of the remaining data sets in the concatenation must have 
the same DDNAME as the first-defined data set. 
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APPENDIX F: CURRENT LINE POINTER 

After a text-editing command has been executed, the current line pointer 
(CLP) is positioned according to certain general ruless 

• If the command is canceled by the system, CLP is unchanged. 

• If the N2 value is equal to the last record in the data set or 
region, CLP is set to the value of N2 plus the value of INCR. 

• If the N2 value is not equal to the last record, CLP is set to the 
line after N2. 

For each text-editing command, CLP is positioned as follows: 

CONTEXT 

to the line following the last line searched (N2)? if N2 is the 
last line, CLP is set to N2 plus the value of INCR. 

CORRECT 

to the line after N2 ? if N2 is the last line, CLP is set to N2 plus 
the value of INCR. 

DISABLE, ENABLE, POST, STET 
CLP is not changed. 

EDIT 

to the first line in an existing data set? to the value of BASE 
(the system default is 100) for a new data set. 

EXCISE 

to the value specified by Nl. 

EXCERPT 

to the value of the last line inserted plus the value of INCR or to 
the next-existing line number, whichever is less. 

INSERT 

to the line number of the last data line entered plus the value of 
INCR. If this exceeds the next- existing line number, CLP is set to 
that line number. If no data lines are entered, CLP is set to Nl. 

LIST 

to the line after N2? if N2 = last line, CLP = N2 ♦ value of INCR. 

LOCATE 

to the record containing the search string if the string is found; 
if the string is not found, CLP is set to the line following N2. 
If N2 is the last line, CLP is set to N2 plus the value of INCR. 

NUMBER 

to the last line renumbered plus the value of INCR or to the next- 
existing line, whichever is less. 

REGION 

to the first line in region if the region exists. If the region is 
not currently in the data set, CLP is set to the new region name 
and a line number specified by BASE C system default is 100) . 

REVISE 

to the value of the last data line entered plus the value of INCR. 
If this exceeds the next-existing line number, CLP is set to that 
line number. If no data lines are entered, CLP is set to Nl . 

UPDATE 

CLP is not changed. 
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APPENDIX G: 



COMMAND FORMATS 



Table 29 summarizes the command formats that appear in Part III. This 
appendix can be used as a reference to the format of a command if you do 
not need the detail presented in Part III. 

Table 29. Command format summary (part 1 of 6) 

, 1 



Operation | Operand 

ABEND 

ABENDREG 

ASM 



J. 

AT 



BACK 



instruction location£ f « 
+ 



DSNAME=data set name 
+- 



BEGIN [application name £, application parameters] 

BLIP |TIME=,*READ= 



BLIP? 

V +—■ 

BRANCH 
| 

BUILT IN 



CA 
CALL 



h 



CANCEL 



CATALOG 
(Form 1) 

k + 

CATALOG 
(Form 2) 



CB 
CDD 



CDS 






NAME=module name [ e STQRED=£Y \ N}] 
( r MACROLIB=( {data definition name of symbolic portion, 
data definition name of index portion} i t ... 3) ] 
£ f VERID=version identification] £,ISD = £ ¥|N3 ] £,SYMLIST=£ Y| N}3 
E,ASMLIST=(Y|N}] C , CRLIST=C Y| N| E> 3 

£ f STEDIT=£Y| N>3 [ # ISDLISI={YJ N>] [ , PMDLIST=£ Y| N) 3 
[ f LISTDS=CY| N>] [ # LINCR=( first line n umber , increment) 3 



3 






INSTLOC=instruction location 



NAME=command name£ f EXTNAME^bpkd macro name] 
£,PROLIB=data set namel 



. — 4 



f 



£NAME=entry point name3 I, module parameters 3 



BSN=batch sequence number 



1 



DS NAME =cur rent data set nameC , STATE= {N|U>3 £, ACC=CR| U>3 

£,NEWNAME=new data set name3 



GDG=generation data group name f G NO =n umber of generations 
[ , ACTION= (A 1 0} 3 £ ,ERASE= £Y| N}3 






DSNAME=data set name, 

{data definition name) (data definition namel,...] 



DSNAMEl=input data set name£ (member name £, .. . 3 ) 3 , 
DSNAME2=copy data set namel (member name)] 
£,ERASE=£Y|N>3 E , COPYBASE=f irst line number, 
C0PYINCR= increment 3 £,REPLACE=CR|I >3 



| CHGPASS I £N EWPASWD=password 3 

l J 
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Table 29. Command format summary (part 2 of 6) 



| <1 — . 

{Operation J Operand 
t 



CLOSE 

j. 

COBOL 



h 



CONTEXT 



CORRECT 
DATA 



h 



I 

DDNAME? 



J. 

DEFAULT 

DELETE 



[DSNAME=data set name] I „TYPE=T3 
[ f DENAME=data definition name] 



NAMB=modulenarae I # OSOPTS 3B Coptl f opt 2, . . • ) 1 
[ , S0URCEDS=sourcedsnamel 



[Nl=starting position! t ,N2«ending position] 
jSTRINGl^search string [, STRING 2=replacement string] 



£Nl=starting line] t r N2=ending line] l # SCOL=starting column] 
[ , CORMARK=replacement correction character s) [ , CHAR={ C | M| H) ] 



DSNAME=data set name 
f RTYPE=CllLINE|FTNlCARD|S} 
l,DBASE=first line number] L,DINCR= increment 3 



DDEF 



DDNAME=data definition namel ,DSORG={VI| VS| VP> ] 
,DSNAME=data set name 



[J0BLIB=CY|N}] 



{opera nd= [value] H # . . . 1 



[DSNAME=data set name] 



DISABLE 



h 



DISPLAY 



data field name or expression [,.. . ) 
id? data field name or expression [,. ... ] 



DMPRST 



FROMDEV= (23111 2314 1 24xx| 3330J 333B> ,FRV0LID=C volid | (volid 
£, volid ])},TODEV= (23111 2314| 24xxJ 3330| 333B} 
l,T0VOLID=Cvolid| (volid [ f volid ] ) (PRIVATE)] 
[,NEWVLID=volid] ( f WRITCHK=CYESlNO> ) C f LABEL =C RETAIN |N0> ] 
t , ] ,RUNM0DE= (BACK ( FORE } 



DSS? 
DUMP 



-+~ 



NAMES= data set name| (data set name [,«..] 



* 

EDIT 



data field name or expression [ f .. . ] 
id? data field name or expression!,...] 






BSNAME=data set name£ (member name) ] [ f RNAME=region name] 
[ # REGSIZE=region name length] 



EJECT 



ENABLE 



END 



ERASE 



tDSNAME=data set name I (member name) ] ] [ f SHARED={Y1N>] 



EW 



I- 

EXCERPT 

| EXCISE 
I 



DEVICE= {23111 2314| 33301 333B> 

, VOLUME =( volume serial number £,.«.] ) 



DSNAME=data set name [(member name) ] t f RNAME=region name] 
[,Nl=starting line [ f N2=ending line]] 



[Nl=starting line] [,N2=ending line] 
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Table 29. Command format summary (part 3 of 6) 



j Operation 



[EXECUTE 



|. 

| EXHIBIT 



I 

JEXIT 



OPTIONl= CBWQ I r TYPE={ALL( BSN, number } ] | 

UID £ ,TYPE=CCONV| BACKJ DID- user id | ALL) 1} 

£SIRTEST=£Y|N>] 



| EXPLAIN 



Operand 



DSNAME^data set name 



MSGID | ORIGI N | word I TEXT J RESPONSE | 
£, mess age identification! |MSGE|MSGS> 



j FILEDEF 



DDNAME=ddname,DSORG=VI |VS| VP£ , DSNAME=dsname* . • 1 
£ ,MACRO=CONC] £ # OSDDN=osddname] I, OSKEYLE=number] 



IFILEREL 
I 



OSDEN=osddname 



IFTN 



I 
[ 

t 

JFTNH 

I 

i. 

|GAV 
| 

JGDV 
J. 

|GO 
I 

JGOTO 

J- 

JGSV 

i- 

(HASM 

I 

| IF 

I 

(INSERT 

* 

JJOBLIBS 
I 

|K 

J- 

|KA 

|. 

|KB 

| KEYWORD 
|. _. 

| LINE? 

! 

J. 

I LIST 

I 

j. 

|LL 
L 



NAME=module naraeE , STORED=CY| NJ 1 [,VERID»ver sion 
identification] 
£,ISD=CY|N}] [ r SLIST={YlN>] [ ,OBLIST=£Y|N>] [ ,CRLIST=fYlN Jl 
£,STEDIT=(Y|Nm,MMAP={YlN}] £ ,BCD=CY| N) ]£, PUBLICO Y| N} J 
£,LISTDS=CY|Nm,LINCR==( first line number, increment)] 



NAME=modulename £ f OSOPTS= Coptl , opt 2, „ • . ) J 
£,SOURCEDS=sourcedsname] 



£TYPE= { SYN I DEF I CSW } ] 



DFLT=term 



{command | OUT J •comment' > 



NAME=value or term £,SEARCH=(T| V}] 



— f 



NAME=module name£ # OSOPTS=(optl ,opt2, . . . ) J 
[ , SOURCEDS=sourcedsname] 



condition 



ENl=starting line] £ f INCF=increment] 



DDNAME=data definition name 



~+ 



-f 



£PROCNAME=comraand name] 



+ 



DSNAME=data set name £ (member name)] 

£,{line number! (first line number,last line number)}!,...]] 



£Nl=Cstarting position) CLP}] £,N2=ending position] 
£,CHAR=CC|H|M}] 



+ 

j LGH=, *TRUNCATE= , *RESET= 

-J .. 
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Table 29. Comntcind format summary (part 4 of 6) 



r t -- 

(Operation [Operand 



h 



LNK 



NAM£=module name I , STORED= { Y| N} 1 
[,LIB=data definition name of library) 

[,VERI Divers ion identification] (,ISD = {Y|tO ) I, PMDLIST={ Y | N> ) 
[ ,LISTDS=(Y| N>] i # LINCR=( first line number , increment) ] 



LOAD 



[NAME=entry point name] 



LOOiTE 



[Nl=starting position] ( ,N2=ending position! 
I ,STRING=cbaracter string) 






LOGOFF 



LOGON 



h 



user identif icationC , password) I , addressing] [ § charge number] 
[, control section packing] C f maximum auxiliary storage] 
C , prist ine H ,user IVM code) 



LTDS 



MCAST 



[EOB=end-of -block character] 

{ f CONT= continuation character ] 

[ f CLP=break character) 

[ # TRP=transient statement prefix character) 

£ # RCOconcatenation ch ar acter ) 

l # SSM=system scope mask) 

[,USM=user scope mask] 

[,KC=keyboard/card reader character] 

I, RS=carriage return suppression character] 

t , CP=c omma nd - prompt string] 



1 



MCASTAB 



h 



[INTRAN=(Y|N}) C # OUTRAN= (Y| N> ] 



— 4 
— i 



MODIFY 



NUMBER 



+- 



SETNAME=data set namet ,CONF=R) i, LRECL=record length, 
KEYLEN=key length ,RKP=key displacement, RECFM=CV|F> ] 
t # FTN=CY|N>3 



lNl=starting line] t # N2=ending lineH,NBASE=base number.] 
[ , INCR= increment] 



ODC 
j. 

OSDD? 
j 

OSRUN 

F 

PC? 



ODCMOD=module( ,ODCPLI=Y| N) I , ODCERASE=Yl Nl 
+ . _. 






module [,• parm 1 ) 

NAMES=(data set namejldata set namel, ])} 



1 



-H 



PERMIT 



* 

PLI 



DSNAME=(data set name| *ALL> 

[,USERID={ (user identif ication[ , . „ .]> | *ALL}) 
[ f ACCESSOR I ROJRWJ u>) 
i 



[NAME=module name) [ # PLIOPT=compiler option list] 
[,PLCOPT=language controller options] 
£,SOURCEDS=source data set name] 
£ # MERGELST=converter input listl 
£,MERGEDS=converter input data set] 
I , MACRO DS=intermedi ate data set name) 
£,EXPLICIT=external names to be changed) 
[,XFERDS=transf er vector data set name] 






L 
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Table 29. Command format summary (part 5 of 6) 



r 1 

| Operation j Operand 



| PLIOPT 



NAME=modulename C # QSOPTS~ Coptl 9 opt2 ,•..)] 
[ 9 SOURCEDS-sourcedsnameJ 



I 



(POD? 
I 

k 

[POST 
I 



£PODNAME=data set name] C,DATA=Y] I, ALIAS=Yl 

[ # MODULE= {module name|*ALLJ] 



1 PRINT 



DSNAME=data set name! f STAR TN0= star ting position] 
£,ENDN0=ending position] 

,PRTSP=EDITJH 21 3 1 

[, HEADERS] [ ,LINES=lines per page] [,PAGE=PJ 
£ , ERASE= CY| N } ) [ f ERROROPT= {ACCEPT I SKIPJ END> 1 
£, FORM=pa per form] £ # STATION= station id] 



JPRMPT 
I 



MSGID=message identification 
£, INSERTn=inserted character! ,•• .] ] 



\ 

J PROCDEF 



NAME=procedure name£ r PROLIB=data set name] 



(PROFILE 
h 



£CSW=CNIY}3 



I PUNCH 



DSNAME=data set name[ f 3 

£,STARTNO=starting position! f f ENDNO=ending position! 

£,STACK={1| 2|3(EDIT}3 £ r ERASE=(YS N} H,FORM=card form] 



[PUSH 



I 

[QUALIFY 
I 

| REGION 
\ 

| RELEASE 

I 



£SIRTEST=CYIN>3 



MNAME= El ink-edited module name.] object module name 



£RNAME=region name] 



t 

| REMOVE 



DDNAME=data definition namel ,DSNAME=data set name] 
£ , £SCRATCH| HOLD} 3 [ , f SCRATCH) HOLD] ] 



(RET 

I" 

| REVISE 

|RTRN 
H~ 

I 

| SECURE 

I 



(statement number £ ,....] |ALL]J 



f 



DSNAME=data set name, RET detent ion code 



£Nl=starting line3 £ # N2=ending line] £,INCR= increment J 



+ 



(TA=n umber of devices £ f type of device]) 
(DA=number of devices! # type of device]) 



£,...] 



[SET 



{data locations alue }£#••• ] 



(SHARE 



k 

(SPACE 



DSNAME=data set name, USER ID-owner" s user identification 
£,OWNERDS= {owner's data set nameI*ALL}] 



| STACK 
j. 

JSTET 
J 

[STOP 



+ 



NUMLINES=( number lines to space) 



j 
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Table 29, Command format summary (part 6 of 6) 



-~r 



I Operation 

* + 

j STRING 
| SYNONYM 

^ 



JTIME 



+. 



Operand 



{ term= [value 1 > ] f . . , 3 



1 

1 



[MINS=roinutesl 



JTRANSLAT | TYPE, FROM, TO # USN,CP 
JTRAP 



I 



FETCH| STORE] REF} f [location! : location} 1 

GR, CnR, • .. | nR:nR> 

BRANCH ( f LOCATICNC : LOCATION} ( , LOCATION! : LOCATION } } } 



(TV 



t 

(UNLOAD 



DSNAMEl=tape data set namet,DSNAME2-VAM data set naroel 
[,OVERLAY=Y|Nl [ ,RETAIN=Y| Nl [ ,FROMID=USER IDENTl 
[,TOID=USER IDENTl 



[NAME=entry point name] 



4 



I - 

I UPDATE 
|. 

(USAGE 
I 

| VT 

I 

I 
I 



DSNAME1=VAM data set name [ ,DSNAME2=t ape data set name] 

[, ERASEDSl=Y|N![,RETAIN=Y|Nl 

[, FROMID=USER IDENT] [ , TOID=USER IDENTl 

[,CATDS2=Y|Nl 



k 

JW 

I 
I 



DSNAMEl=current data set name[,DSNAME2=new data set name! 
[, ERASEDS1=Y|N) C ,OVERLAY=Y| Nl [ ,RETAIN=Y| N] 
[,FROMID=USER IDENTl [ ,TOID=USER IDENT] 



(WT 



DSNAME=current data set name f DSNAME2=tape data set name 
[,VOLUME=tape volume number! C f FACTOR ^blocking factor! 
[,STARTNO=starting position! £ ,ENDNO=ending position! 
,PRTSP=CEDIT| 1| 2| 3} 
| | [,HEADER=Hl [, LI NES= lines per page 1 [,PAGE=Pl 

[ # ERASE=CY|N}1 

| Z LOGON 1 
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APPENDIX H; KEY TO VALUES DISPLAYED BY USAGE COMMAND 



Table 30 summarizes the output of the USAGE command. The field abbre- 
viations are defined and the meanings of the statistics associated with 
each field are given. 

Table 30. Explanation of output from the usage coirirand (part 1 of 2) 

j T 



h 



h 



h 



Field 
Abbr evi a tion 

TEMP STOR 
(temporary stor- 
age) 



PERM STOR 
(permanent stor- 
age) 



H 



DA DEV 

(direct access 
devices) 



MAG TAP 
(magnetic tape) 

PRINTERS 

(high-speed 
printers) 



H 



RD-PU 

(card readers 

and 

card punches) 

TSS TASKS 



BULKIN 



I 

BULKOUT 



-f 



Statistic 



Ration 



~H 



Number of pages 
available for 
this user's data 
sets. 



| Current Usage [Accumulative Usage 



Number of de- 
vices of this 
type available 
to this user. 



Number of de- 
vices of this 
type currently 
(assigned to this 
luser. 



Maximum number 
of tasks that 
can be associ- 
ated with this 
USERID. 

Not applicable 



Number of pages 
currently occu- 
pied by this 
user's data 
sets. 



Number of device- 
seconds utilized by 
this user since the 
accumulative sta- 
tistic was last set 
to 0; calculated by 
summing the time 
(in seconds) each 
device was, or has 
been, assigned to 
this user. 






Number of active 
tasks currently 
associated with 
this USERID. 



Not applicable 



Number of page- 
seccnds utilized in 
storing this user's 
data sets since 
the accumulative 
statistic was 
last set to 0; cal- 
culated by suiriring 
the time (in sec- 
onds) each page 
was, or has been, 
assigned to the 
user. 



4 



H 



Not applicable 



+ 






Total number of 
bulk input (BULKIN) 
and bulk output 
(BULKOUT) tasks as- 
sociated with this 
USERIC since this 
accumulative sta- 
tistic was last set 
to 0. 



- u 
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Table 30. Explanation of output from the usage command (part 2 of 2) 



I 

CPU TIME 
(execution time) 



Field 
Abbreviation 



I t — 

Ration (Current Usage 



CONN TIME 
(connect time) 



t-- ,. 



Statistic 



Maximum amount 
of CPU execution 
time permitted 
to tasks associ- 
ated with this 
USERID; pre- 
sented in the 
form hhh.mm.ss, 
where hhh is in 
hours, mm is in 
minutes , and ss 
is in seconds. 



Maximum amount 
of time that 
this user can be 
connected to the 
system from a 
terminal? pre- 
sented in the 
form hhh.mm.ss, 
where hhh i3 in 
hours , mm is in 
minutes , and ss 
is in seconds. 



Time spent exe- 
cuting in the 
CPU since the 
current user 
task was logged 
on; presented in 
the form mm. ss. 
nn, where mm is 
in minutes, ss 
is in seconds, 
and nn is in 
milliseconds. 






+ 



Time elcipsed 
since the cur- 
rent user task 
was logged on; 
presented in the 
form hhh.mir. ss, 
where hhh is in 
hours, mm is in 
minutes, and ss 
is in seconds. 



, 

Accumulative Usage 

Time spent exe- 
cuting in the CPU 
since this accumu- 
lative statistic 
was last set to Oj 
presented in the 
form hhh.mm.ss, 
where hhh is in 
hcurs, mm is in 
minutes, and ss is 
in seconds. It is 
this value that is 
compared to the 
maximum amount of 
CPU execution time 
permitted (the 
ration) to see if 
the user has ex- 
ceeded his limit. 



Sum of the current 
tiroes of each ter- 
minal session since 
this accumulative 
statistic was last 
set to 0; presented 
in the form hhh. mm. 
ss, where hhh is in 
hours, mm is in 
minutes, and ss is 
in seconds? com- 
pared to the max- 
imum amount of the 
connected time in 
the ration to see 
if the user has ex- 
ceeded his limit. 
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APPENDIX I: PL/ 1 COMPILER OPTIONS 



The PLIOPT operand 
to be used by the 
equal sign in the 
only one value is 
an option that inc 
LINECNT), only sig 
option that includ 
SGRMGIN), the numb 
commas . 



of the FLI command specifies a list of PL/I options 
compiler. The list of compiler options following the 
PLIOFT operand must be enclosed in parentheses unless 
given. Each option must be separated by commas. For 
ludes a numeric specif icaticn (fcr example, SIZE or 
nificant digits need be specified. Futhermore, for an 
es more than one numeric specification (for exanple, 
ers must be enclosed in parentheses and separated by 



There is no required order for specifying the compiler options, but if 
conflicting options are specified, the last specification in the list is 
used. A brief explanation of the compiler options follows. This infor- 
mation is summarized in Table 31. The standard defaults are shown in 
the table, but you can specify an alternative. Additional information 
appears in PL/I Programmer's Guide . 



Table 31. Formats of compiler options, abbreviations, and standard 
defaults 



Category 

Control 

options 



Preprocessor 
options 



Input 
options 



Compiler Option Format 

OPT=n 

STMT] NO STMT 

OBJNM=aaaaaaaa 

SYNCHKT| SYNCHKS | SYNCHKE 



h 



Output 
options 

Listing 
options 



Dummy 
options 



MACRO | NOMACRO 
COMPJNCCCMP 
MACDCK) NCMACDCK 

CHAR60|CHAR4 8 

BCD | EBCDIC 

SORMGIN= (mmm,nnn, Icccl ) 



LOAD] NOLOAD 
DECKJNODECK 

LINECNT=XXX 
OPLIST|NCOPLIST 
SOURCE2|NOSOURCE2 
SOURCE | NO SOURCE 
NEST! HONEST 
ATR|NOATR 
XREF] NGXREF 
EXTREFJ NOEXTREF 
LIST|NOLIST 
FLAGW| FLAGE| FLAGS 



Abbreviated 
Name 

O 

ST INST 

N 

SKT|SKS|SKE 

M|NM 
C|NC 
MD|NME 
+ ^ 

C60|C48 

B|EB 

SM 



SIZE=yyyyyylyyyK |999999 |MAX 

OBJIN|OBJOUT* 

EXTDIC/NOEXTDIC 



LD | NLD 
D|ND 

+ 

LC 

OLJNOL 

S2JNS2 

S|NS 

NT|NNT 

A|NA 

X|NX 

E|NE 

L|NL 

FW)FE|FS 



SIZE 

OBJIN|OBJOUT 
ED I NED 



Standard 
Default 
1 

01 

NOSTKjT 

None 

SYNCHKS 

SYNCHKE 

NOMACRO 

COMP 

NOMACDCK 

1 

CHAR60 
EBCDIC 
Cl f 100) 

H 



LOAD 
NODECK 

50 

OPLIST 

SOURCE 2 

SOURCE 

NONEST 

NOATR 

NOXREF 

NOEXTREF 

NOLIST 

FLAGW 

MAX 

OBJOUT 

ED 



I * Note ; Formerly referred to as M91/NOM91 



304 



CONTROL OPTIONS 

Control options establish the conditions for compilation. 

OPT : This option specifies the type of optimization required: 

OFT=0 

instructs the compiler to keep object-program storage requirements 
to a minimum at the expense of object -prograir execution time, 

OPT=l 

causes object-program execution time to be reduced at the expense 
of storage. 

0PT=2 

has the same effect as OPT-1, but in addition requests the compiler 
to optimize the machine instructions generated for certain types of 
DO loops and expressions in subscript lists. IBM TSS: PL/I Lan- 
guage Reference Manual includes a discussion of DO loop and 
subscript-expression optimization. 

There is little difference in compilation time for optimization levels 
and 1, but specifying OPT=2 can increase compilation time. 

STMT or NQSTMT : This option requests the compiler to produce additional 
instructions that allow statement numbers from the source program to be 
included in diagnostic messages produced during execution of the com- 
piled program. The use of this option increases execution time. Howev- 
er, you can get information about statement numbers and their associated 
offsets by referring to the table of offsets in the listing. 

OBJNM : This option has meaning only in a * PROCESS statement. When the 
PL1 command is executed this option is ignored and the value is taken 
from the NAME parameter. The OBJNM option allows you to specify a name 
(from one to eight alphameric characters) for successive compilations in 
a batched compilation. 

SYNCHKT or SYNCHKS or SYNCHKE : These options allow the user to control 
the operation of the PL/I compiler when errors are encountered in the 
"Dictionary*' phase of compilation. The effect of each option is as 
follows : 

• SYNCHKT overrides the system default. There is nc prompting. 

• SYNCHKS causes prompting in conversational nrode or termination in 
nonconversational mode when errors of severity SEVERE are found. 

• SYNCfaKE causes prompting in conversational mode or termination in 
nonconversational mode when errors of severity SEVERE or ERROR are 
found. 

The system defaults are SYNCHKS in conversational mode? SYNCHKE in non- 
conversational mode. 

PREPROCES S OR OPTIONS 

Preprocessor options request the services of the preprocessor and speci- 
fy how its output is to be handled. 

iAPCKO or NCMACRO : Specify MACRO when you want to employ the compiler 
preprocessor. 

CQMP or N0NCOMP : Specify CCMP if you want the PL/ I source module pro- 
duced by the preprocessor compiled immediately. The source module is 
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then read by the compiler from the data set identified by the DDNAHE 
PLIMAC. 

MACDCK or NQMACDCK s Specify MACDCK if you want to save the intermediate 
macro file that has the DDNAME of PLIMAC. NOMACECK causes the file to 
be erased after compilation is complete. 



INPUT OPTIONS 

Input options specify the format of the input to the compiler. 

CHAR60 or CHARU8 : If the PL/I source statements are written in the PL/I 
6 0-character set, specify CHAR60; if they are written in the 48- 
character set, specify CHAR48. IBM Time Sharing Systems PL/I Language 
Reference Manual lists both character sets. (The compiler accepts 
source programs written in either character set if you specify CHARTS. 
However, use of CHAR** 8 is inefficient.) 

BCD or EBCDIC : The compiler accepts source statements in which the 
characters are represented by either binary coded decimal (BCD) or ex- 
tended binary coded decimal interchange code (EECEIC). Whenever possi- 
ble, use EECDIC since BCD requires translation and is less efficient. 
(See PL/I Language Reference Manual for the EBCDIC representation of 
both the 48-character set and the 60-character set.) 

SORMGIN: This option specifies the extent of the part of each input 
record that contains the PL/I source statements. (SORMGIN represents 
source margin.) The compiler does not process data that is outside 
these limits. The option can also specify the positicn in the record of 
a FORTRAN control character. This character is used to format the list- 
ing of source statements produced by the compiler if you include the 
SOURCE option. The format of SORMGIN is: 

SORMGI N= ( irmm , nnn [ , c c c ] ) 

where , 

irinr, represents the number of the first byte of the field that con- 
tains the source statements 

nnn represents the number of the last byte of the source statement 

field 

ccc represents the number of the byte that will contain the control 
character 

The value irmm must be less than or equal to nnn, and neither must exceed 
100. The value ccc must be outside the limits set by mmm and nnn. The 
valid FORTRAN control characters are: 

blank Skip one line before printing 

Skip two lines before printing 
Skip three lines before printing 

+ Suppress space before printing 

1 Start new page 

The carriage control character can be ignored by specifying zero. Zero 
is the system default. 

OUTPUT OPTIONS 

Output options specify the type of data set that will contain the object 
module. 
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LOAD or NOLOAD : Specifying LOAD invokes the same action as the DECK 
option, but in addition the load data set will be presented to the 
object dataset converter (CDC), which produces an executable module. 

Note that the load data set is created as a data generation set of depth 
one. Each time the program is recompiled, the last data set is erased 
and replaced with the one currently being generated. 

DECK or NOEECK : Specifying DECK causes the compiler to put the object 
code, in card image form, into a data set called LOAD.xxx(O), where xxx 
is the object module name. This option should be considered in conjunc- 
tion with the LOAD or NOLCAD option. 

LISTING OPTIONS 

Listing options specify the information to be included in the compiler 
listing. 

LINECNT : This option specifies the number of lines to be included in 
each page cf a printed listing, including heading lines and blank lines. 
Three decimal digits are used. 

OPLIST or NOOPLIST : This option requests a list showing the status of 
all the compiler options at the start of compilation. 

SQURCE2 or N0S0URCE2 : Specify S0URCE2 if you want a listing of the PL/I 
source statements input to the preprocessor. 

SOURCE or NOSOURCK : Specify SOURCE if you want a listing of the PI/I 
source statements processed by the compiler. The source statements 
listed are either those of the original source program or the output 
from the preprocessor. 

NEST or NONEST ; Specify NEST if you want the source program listing to 
indicate, for each statement, the block level and the level of nesting 

of a DO group. 

ATR or NOATR ; Specify ATR if you want included in the listing a table 
of source program identifiers and their attributes. Attributes with a 
precision of fixed binary (15.0) or less are flagged •*** ******•„ j^ 
aggregate length table, giving the length in bytes of all major struc- 
tures and nonstructured arrays in the source program, is also produced 
when the ATR option is specified. 

XREF or NOXREF : Specify XREF if you want included in the listing a 
cross-reference table that lists all the identifiers in the source pro- 
gram with the numbers of the source statements in which they appear. If 
you specify ATR and XREF, the two tables are combined. An Aggregate 
Length Table is also produced when the XREF option is specified. 

EXTREF or NOEXTREF : Specify EXTREF if you want a listing of the exter- 
nal symbol dictionary (ESD). 

LIST or NOLI ST : Specify LIST if you want the machine instructions 
generated by the compiler (in a form similar to OS, OS/VS assembler lan- 
guage instructions ) . 

FLAGW or PLAGE or FLAGS ? Messages are listed in order of their occur- 
rence on the user's terminal and in order of their severity in the out- 
put listing. There are four classes of diagnostic messages, which are 
graded in order of severity: 

A warning is a message that calls attention t;o a possible error, 
although the statement to which it refers is syntactically valid. In 
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addition to alerting you, it may assist in writing more efficient pro- 
grams in the future. 

An error message describes an atteirpt to correct an erroneous statement; 
you are informed of the correction. Errors do not normally terminate 
processing of the text. 

A severe error message indicates an error that cannot be corrected by 
the compiler. The incorrect section of the program is deleted, but com- 
pilation is continued. Where reasonable, the ERROR condition is made 
known when the object module is executed, if execution of an incorrect 
source statement is attempted. If a severe error occurs during compila- 
tion, compilation is terminated after the SOURCE listing is produced. 

h terminal error message describes an error that, when discovered, for- 
ces the termination of the compilation. 

You can select the severity at and above which diagnostic messages 
appear on the output listing. The meaning of each option is as follows: 

FLAGW — list all diagnostic messages 

FLAGE — list all diagnostic messages except warning messages 

FLAGS -- list only severe errors and termination errors 

DUMMY OPTIONS 

Dummy options are included solely to give compatability with the PL/I 
(F) Compiler. 

Size : This option is used in the PL/I CF) compiler to specify the a- 
mount of main storage available. The option has no effect in TSS PL/I 
and is included to give compatability with PL/I. Since there is a 
standard default built into the compiler, you need never take account of 
this option. 

M91 or N0M91 ; This option is used to indicate if the machine is a Model 
91. It is included for the same reasons as given above for SIZE . 

EXTDIC or NOEXTDIC ; This option is ignored, since the TSS PL/I compiler 
always takes the EXTDIC option. 
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APPENDIX J: CQBOL/VS COMPILER OPTIONS 



This appendix lists and defines the COBOL/VS Compiler Options. 

3IZE=YYYYYYY 

indicates the amount of main storage, in bytes, available for 
compilation. 

BUF=YYYYYY 

indicates the amount of main storage to be allocated to buffers. 
If both SIZE and BUF are specified, the amount allocated to buffers 
is included in the amount of main storage available for 
compilation. 

Note: The SIZE and BUF compile-tiire parameters can be given in mul- 
tiples of K, where K=102H decimal bytes. For example, 131,07 2 decimal 
bytes can be specified as 128K. 

SOURCE | NOSOURCE 

indicates whether or not the source module is to be listed. 

CLIST | NOLI ST 

indicates whether or not a condensed listing is to be produced. If 
specified, the procedure portion of the listing will contain 
generated card numbers (unless the NUM option is in effect), verb 
references, and the location of the first instruction generated for 
each verb. Global tables, literal pools, register assignments, and 
information about the working- storage section are also provided. 
CLIST and PMAP are mutually exclusive options. 

Note; In nonsegmented programs, verbs are listed in source order, in 
segmented programs, the root segment is last. (For programs run with 
the OPTIMIZE option the root segment is first, followed by the individu- 
al segments in order of ascending priority.) 

DMAP| NQDMaP 

indicates whether or not a glossary is to be listed. Global 
tables, literal pools, register assignments, and information about 
the working-storage section are also provided. 

PMAP | NO PMAP 

indicates whether or not register assignments, global tables, lit- 
eral pools, information about the working- storage section, and an 
assembler-language expansion of the source modules are to be 
listed. CLIST and PMAP are mutually exclusive options. 

Note: If any one of the options CLIST, DMAP, and PMAP is specified, the 
compiler will produce a message giving the hexadecimal length and start- 
ing address of the working-storage section. 

VERB 1NOVERB 

indicates whether procedure-names and verb-names are to be listed 
with the associated code on the object-program listing. VERB has 
meaning only if PMAP or CLIST is in effect. NOVERE yields more 
ef f icient compil at ion . 

LOAD1NOLOAD 

indicates whether or not the object module is to be written to a 
dataset named PUNCH. module. 
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DECK1 NPDECK 

indicates whether or not the object module is to be written to a 
LOAD. module. This option is required if the module is to be con- 
verted by the object deck converter to a TSS loadable module, 

SEQ1N0SEQ 

indicates whether or not the compiler is to check the sequence of 
the source module statements. If the statements are not in 
sequence, a message is printed*, 

LINECNT=nn 

indicates the number of lines to be printed on each page of the 
compilation source card listing* The number specified by nn must 
be a 2-digit integer from 01 to 99* If the LINECNT option is 
omitted, 60 lines are printed on each page of the output listing, 

Note: The compiler allows for headings three lines less than the user 
has specified, (For example, if nn=55 is specified, then 52 lines are 
printed on each page of the output listing,) 

ZWB INOZWB 

indicates whether or not the compiler generates code to strip the 
sign from a signed external decimal field when comparing this field 
to an alphanumeric field* If ZWB is specified, the signed external 
decimal field is moved to an intermediate field, in which its sign 
is removed, before it is compared to the alphanumeric field. ZWB 
complies with the ANS standard; N0ZV7E shculd be used when, for ex- 
ample, input numeric fields are to be compared with SPACES. 

LVL= A/ E/ C/ E I NOLVL 

specifies what level of FIPS (federal Information Processing Stand- 
ard) flagging is to be used. If flagging is specified, source 
clauses and statements that do not conform to the specified level 
of FIPS are identified. See the publication I EM OS Full American 
National Standard COBOL for a complete list of the statements 
flagged at each level. 

Note: If 1VL is the default, its assigned value can be overridden at 
compile time with any level except NOLVL. If NOLVL is the SYSGEN 
default, it can be overridden at compile time with any level. If the 
LVL option is in effect, the SYSUT6 dataset must be specified. If both 
LVL=A/B/C/£ and TERM are specified, the compiler listing output for 
options such as SOURCE, PMAP f and XREF are not produced. 

FLAGW 1 PLAGE 

indicates the type of messages that are to be listed for the compi- 
lation. FLAGW indicates that all warning and diagnostic messages 
are to be listed. FLAGE indicates that all diagnostic messages are 
to be listed, but that the warning messages are not to be listed. 

SUPMAP1 N0SUPMAP 

indicates whether or not the object code listing, and object module 
and link edit decks are to be suppressed if an E-level or D- level 

message is generated by the compiler. 

SPACE1 1 SPACE2 1 SPACE3 

indicates the type of spacing that is to be used on the source card 
listing generated when SOURCE is specified. SPACEl specifies 
single spacing, SPACE2 specifies double spacing, and SPACE3 speci- 
fies triple spacing. 

TRUNC| NOTRUNC 

applies to movement of COMPUTATIONAL arithretic fields. If TRUNC 
(standard truncation) is specified and the number of digits in the 
sending field is greater than the number of digits in the receiving 
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field, the arithmetic item is truncated to the number of digits 
specified in the PICTURE clause of the receiving field when moved, 
if NOTRUNC is specified # movement of the item is dependent on the 
size of the field (half word, fullword). 

QUOTE 1 APQST 

indicates to the compiler that either the double quote (" ) or the 
apostropne C f > is acceptable as the character to delineate literals 
and to use that character in the generation of figurative 
constants. 

STATE 1 NOSTATE 

indicates whether or not. the number of the C0E0L statement being 
executed at the time of an abnormal termination is desired. STATE 
identifies the number of the statement and the number of the verb 
beinq executed* 

S YMDMP | NOSYMDMP 

requests a formatted dump of the data area of the object program at 
abnormal termination. With this option, the programmer may request 
dynamic dumps of specified data-names at strategic points during 
proyram execution. 

Notes; If the s YMDMP option is in effect, the SYSUT5 data set roust be 
filedeffed. If the BATCH option is requested, symbolic debugging is 
rejected. Specification of the S YMDMP option automatically yields the 
OPTIMIZE feature, discussed below, and rejects the STATE option because 
SYMDMP output includes STATE output at abnormal termination. 

OPTIMIZE 1 N00PTIMIZE 

causes optimized object code to be generated by the compiler f con- 
siderably reducing the use of object program main storage. In gen- 
eral, the greater the number of COEOL Procedure Division source 
statements , the greater the percentage of reduction in the airount 
of main storage required* 

Note The optimizer feature is automatically in effect when the SYMDMP 
feature is specified. 

SYNTAX | N0SYNTAX 

CSYNTAX1 NOCSYNTAX 

indicates whether the source text is to be scanned for syntax 
errors only and appropriate error message are to be generated. For 
conditional syntax checking (C SYNTAX) , a full compilation is pro- 
duced so long as no messages exceed the M or C level. If one or 
more e-level or higher severity Messages are produced, the compiler 
generates the messages but does not generate object text. 

Notes i 



1. When the SYNTAX option is in effect, all of the following compile- 
time options are suppressed : 



LOAD 


DECK 


NAME 


XREF 


SYMDMP 


COUNT 


SXREF 


TRUNC 


VBSUM 


CLIST 


OPTIMIZE 


VBREF 


NOSUPMAP 


PMAP 


STATE 



2. Unconditional syntax checking is assumed if all of the following 
compile-time options are specified: 

NOLOAD NOCLIST SUPMAP 

N0XREF NOPMAP NODECK 

NOSXREF 
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3. CSYNTAX and SYNTAX are mutually exclusive* CSYNTAX will override 
SYNTAX. 

NUMI NONUM 

indicates whether or not line iiimibers have been recorded in the 
input and, rather than corapiler^generated source numbers, should be 
used in error messages, as well as in PMAP* CLIST, STATE, XREF, 
SXREF, and FLOW. NONUM indicates that the compiler -genera ted num- 
bers should be used in error messages as well as in PMAP, CLIST # 
STATE, XREF, and SXREF* 

XREFJNOXREF 

indicates whether or not a cross-reference listing is, produced. If 

XREF is specified , an unsorted listing is produced with data-nan*?^ 

and procedure*- names appearing in two parts in source order. 

SXREF t NOSXREF 

indicates Aether or not a sorted cross- reference listing is pro- 
duced, if SXREF is specified, a sorted listing is produced with 
data-names and procedure-names in alphanumeric order. 

Note; XREF and SXREF are mutually exclusive. 

LIBJNOLIB 

indicates whether or not a COP/ arid/or a >IS request will be part 

of the COBOL source input stream If no library facilities are to 
be used, the specification of KCLIfe will save compilation time. 

BATCH J NOBATOH 

indicates whether or not Multiple programs and/or subprograms are 
to be compiled with a single invocation of the compiler. 

NAMEl NONAME 

indicates whether or not prog raws in a multiple compilation 
environment will be combined into one or more load modules. If 

NAME is specified 9 each succeeding program will be put into a 
separate load module, this option will remain in effect for the 
entire compilation unless NONAME is specified for an individual 
program. Names for the load modules will be formed according to 
the rules for forming module names from the PROGRAM- ID. 

Note: If the BATCH option is not specified, NONAMF will be in effect. 

RESIDENT I NORBSIDENT 

requests the COBOL Library Management feature* When one program in 
a given regi on/parti tion requests the RESIDENT option, the main 
program and all subprograms in that reti on/partition should also 
request it. 

Note; The RESIDENT option is automatically in effect when the DYNAM 
option is invoked. 

DYNAM 1 N0PYNAM 

causes subprograms invoked' through the CALL literal statement to be 
dynamically loaded and through the CANCEL statement to be dynamic- 
ally deleted at object time (instead of link-edited with the call- 
ing program into a single load module). 

Notes When both N0RESIDE1T and MOCYNJKM are either specified or iirplied 

by default, and a CALL identifier statement occurs in the source state- 
ment being compiled § the COBOL Library Manage»ea FACILITY OPTION (RESI- 
DENT) is automatically in effect. A par luted statement of this is given 
in the compiler output. 
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SYST lSYSx 

indicates whether SYSOOT of SYSOUx, where x must be alphanumeric 
(that is, 0-9 or a-z except for t) , is the ddname of the file to be 
used for debug output (READY TRACE, EXHIBIT) or DISPLAY statement. 
The specification in the program that is first to access the file 
is chosen. 

END JOB | NOENDJOB 

indicates whether or not, at the end of each job, COBOL library 
subroutines are to be called to delete modules, free main storage 
acquired through GETMAINs issued by the COBOL program or COBOL li- 
brary subroutines, close DCBs opened by subroutines, and free their 
associated buffers. Specifying ENDJOB prevents fragmentation of 
main storage for programs executed on the system after the COBOL 
program. This option takes effect at a STOP RUN statement in any 
program and at a GOBACK statement in a main program only. 

ADV1 NOADV 

indicates whether or not records for files with WRITE. ..ADVANCING 
need reserve the first byte for the control character. ADV speci- 
fies that the first byte need not be reserved. 

COUNT 1 NOCOUNT 

indicates whether or not code is to be generated to produce verb 
execution summaries at the end of problem program execution. Each 
verb is identified by procedure- name and by statement number, and 
the number of times it was used is indicated. In addition, the 
percentage of verb execution for each verb with respect to the 
execution of all verts is given. A summary of all executable verbs 
used in a program and the number of times they are executed is pro- 
vided . COUNT implies VERB. 

DUMP) NOD UMP 

specifies that an abnormal termination dump is to be produced in 
the event of certain disaster level errors during compilation. 
NOD UMP specifies that only an error message is to be produced in 
the event of these disaster level errors. 

The dump produced will contain a four digit user completion code. 
Have the following available before calling IBM for prog r a manning 
support: source deck, control cards, and compiler output. 

VBSIMJNOVBSUM 

provides a brief summary of verbs used in the program and a count 
of how often each verb was used. This option provides the user 
with a quick search for specific types of statements. VBSUM 

implies VFJRB. 

VBREF 1 N OVBREF 

provides a cross-reference of all verbs used in the program. This 
option provides the programmer with a quick index to any verb used 
in the program. VBREF implies VERE and VBSUM. 

Options for the Lister Feature 

There are five compiler options for using the lister feature of the com- 
piler. Note that either LSTONLY or LSTCOMP must be selected for the 
other four options to have meaning unless the BATCH option is specified. 

LSTONLY | LSTCOMP | N OLST 

indicates whether the lister feature is to be used. LSTONLY speci- 
fies that a reformatted listing is to be produced but that no com- 
pilation is to occur. LSTCOMP specifies that both a reformatted 
listing is to be produced and compilation is to occur. 
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FDECK | NOFDECK 

indicates whether a copy of the reformatted source program is to be 
written on the SYSPUNCH data set- Since LEECK has meaning only 
with either LSTONLY or LSTCOMP f the lister output will be both a 

reformatted listing and a reformatted deck. 

CDECK I NOCDECK 

indicates whether or not COPY statements are to be expanded into 
COPY members in the SYSPlWCe output. The COPY members are to be 
expanded in the reformatted deck requested through FEECK. if CDECK 
is specified with NOFDECK , only the expanded COPY statements are 
produced, 

LCCL1 JLCCL2 

indicates whether the Procedure Division part of the listing is to 
be in single or double column format. 

L120|L132 

indicates whether the length of each line of the reformatted list- 
ing is to be 120 or 132 characters long. 

PRINT! C* | dsname) } | NOPRINT 

indicates whether or not the program listing is to be suppressed, 
placed on the output data set specified by dsname, or displayed at 
the terminal. if PRINT is specified, the listing will include page 
headings, line numbers of the statements in error, message identi- 
fication numbers, severity levels,, and message texts (as well as 
any other output requested by SOURCE, CLIST, DM&P, PMAP, XREF, or 
SXREF). If (*) is specified instead of data-set name, the printed 
output is sent to the terminal. if PRINT alone is specified, a 
listing data set is created on secondary storage and named accord- 
ing to standard dataset naming conventions. NOPRINT specifies that 
no listing is to be printed* if neither PRINT nor NOPRINT is spec- 
ified and any one or more of the options SOURCE, CLIST, DMAP, XREF, 
or PMAP are specified, PRINT is the default. Otherwise, NOPRINT is 
the default. 

TERM 1 NOTERM 

indicates whether or not progress and diagnostic messages are to be 
printed on the SYSTERM terminal data set. The severity level of 
the messages may fce controlled by the FL£G option. If PRINT (*) is 
specified, then NOTERM is the default, to ensure that messages 
appear only once . 
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APPENDIX K: FORTRAN IV (H EXTENDED) COMPILER OPTIONS 



Default options are indicated by an underscore and need never be speci- 
fied explicitly. The default options shown are standard IEM defaults; 
when the compiler is installed, each installation may establish its own 
set of default options- 
Options may be coded in any order and may be separated by blanks or com- 
mas. As many as 100 characters may be coded. 

SOURCE | NOSOURCE 

indicates whether the source module listing is to be written. If 
SOURCE is specified, the source listing is produced in the listing 

dataset . 

LINECOUiMT ( number ) 

indicates the maximum number of lines to be assigned per page of 
the source listing. The number may be in the range 1 to 99. If 
the option is omitted, the compiler assumes 60. 

LIST1 NOL1S1 

indicates whether the object module listing is to te written. The 
object module listing consists of statements written in psuedo- 
assembler language format. 

OBJECT | NOOBJECT 

indicates whether the object module (not the listing) is to be 
written. 

DECK | NODECK 

indicates whether the object module in card image form is to be 
produced. DECK is required to supply input to the object deck con- 
verter to produce a TSS loadable module. 

OPTIMIZE U0|1 1 2>) | NOOPTIMIZE 

indicates what optimizing level is to be in force. NOOPTIMIZE in- 
dicates that no optimization is to be performed, and is equivalent 
to the specification OPTIMIZE (0). OPTIMIZE CD specifies that each 
source module is to be treated by the compiler as a single program 
loop and that the single loop is to be optimized with regard to 
register allocation and branching. OPTIMIZE (2) specifies that each 
source module is to be treated as a collection of program loops and 
that each loop is to be optimized with regard to register alloca- 
tion, branching, common expression elimination, and replacement of 
redundant computations. 

FORMAT | NOFORMAT 

indicates whether a structured source module listing is to be writ- 
ten. A structured source module listing indicates loop structures 
and the logical continuity of a source program. This option is ef- 
fective only when OPTIMIZE<2) is in effect. 

GOSTMT | NOGOSTMT 

indicates whether internal sequence numbers (ISN) are to be 
generated for the calling sequence to subroutines for a traceback 
map. (a traceback map is a tool used in diagnosing execution 
errors) . 

MAP1 NOMAP 

indicates whether a table of names and statement labels used by the 
source program is to be written to the listing dataset. 
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XREF| NOXKEF 

indicates whether a cross reference listing of variables and labels 
used in the source program is to be written tc the listing dataset. 
If XREF is specified, ISNs axe generated for each statement in 
which a variable or label is used* 

NAME ( name > 

indicates the name to be given to the main source program. The 
name may be from one to six characters. If NAME is not specified, 
the compiler assumes the name MAIN. 

BCD | EBCDIC 

indicates whether the source irodule is written in BCD CBinarv Coded 
Decimal) or EBCDIC (Extended Einary Coded Decimal Interchange 
Code). If BCD and EBCDIC statements are intermixed in the source 
module, BCD should be specified. BCD characters are not supported 
by the compiler as print control characters or in literal data. 
Eor example, the carriage control character to specify same line 
printing,*, is specified as a 12-8-6 punch in EBCDIC and as a 12 
punch in BCD: the compiler recognizes only the EBCDIC code. 
Therefore, programs keypunched in BCD should be carefully screened 
for potential errors before job submission. 

SIZE(MAX|nnnnk) 

indicates the amount of main storage to be allocated to the compi- 
lation step. The symbol nnnnK represents the number* multiplied by 
K (1024-bytes) # to be allocated. Trie number may range from 160 to 
9 Q 99. 

If SIZE (MAX) is specified f or if the option is omitted # the compiler 
uses all available storage in the environment in which it is operating. 

AUTODBL (value) 

calls the Automatic Precision Increase (API) facility and indicates 
whether data items are to be converted to higher precision. API 
provides an automatic means of converting single precision floating 
point calculations to double precision accuracy and double preci- 
sion calculations to extended precision accuracy. the AUTODEL 
option indicates which particular data types are to oe converted. 

If AUTODBL is omitted, no precision increase is performed. 

ALC1 NOALC 

indicates whether data items are to be aligned on proper storage 
boundaries. It is often used with the AUTODBL option to restore 
proper storage boundaries when a conversion is performed. 

ANSFj NOANSP 

indicates whether the compiler is to recognize only those library 
and built-in functions specified by the American National Standards 
Institute, (ANS), or the entire range of functions specified by IBM 
in the publication IBM FORTRAN IV LANGUAGE , Form No. GC28-6 515. 
If ANSF is specified r any function not supported by ANS is consid- 
ered to be user-supplied,, 

FLAG (I) IFLAGE(E) (FLAG(S) 

indicates the level of diagnostic messages to be printed, FLAG (I) 
indicates that information messages , warning messages (those 
generating a return code of 4) , error messag?s (those generating a 
return code of 8) f and severe error messages (generating a return 
code of 12 or higher), are to be printed. FLAG(E) indicates that 
only error messages and severe error messages are to be printed. 
FLAG(S) indicates that only severe error messages are to be 
printed. 
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DUMP I NODUMP 

indicates whether the contents of registers, storage, and files as- 
sociated with the compiler are to be printed if an abnormal termi- 
nation occurs. If DUMP is specified, a filedef statement named 
SYSODUMP or SYSABEND must be supplied. 

Changing Program Options During Compilation 

The programmer may compile more than one source module. To change the 
options for any source module, the programmer precedes the source module 
with a card containing the characters *PROCESS in columns 1 through 9 
followed by the options up to column 72, which must be left blank and 
which denotes the end of the *PROCESS card. 

An example of the *PROCESS card is: 
♦PROCESS LI ST, MAP 

If succeeding source modules are not preceded by a *PROCESS card, 
options revert to those specified in the EXEC statement. Any option ex- 
cept SIZE may be specified on the *PROCESS card. 
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APPENDIX L: PL/I OPTIMIZING COMPILER OPTIONS 



The compiler options are of the following types: " 

1. Simple pairs of keywords: a positive form (for example, NEST) 
that requests a facility, and an alternative negative form (for ex- 
ample, NONEST) that rejects that facility. 

2. Keywords that permit you to provide a value- list that qualifies 
the option (for example, NOCOMPILE CE 3 ). 

3- A combination of 1 and 2 above. 

The following paragraphs describe the options in alphabetic order* 

AGGREGATE Option 

The AGGREGATE option specifies that the compiler is to include in 
the compiler listing an aggregate length table, giving the lengths 
of all arrays and major structures in the source program. 

ATTRIBUTES Option 

The ATTRIBUTES option specifies that the compiler is to include in 
the compiler listing a table of sourv^-prograir identifiers and 
their attributes. If both ATTRIBUTES and XREF apply, the two 
tables are combined. 

CflARSET Option 

The CBARSET option specifies the character set and data code that 
you have used to create the source program. The compiler will ac- 
cept source programs written in the 60- character set or the 48- 
character set, and in the Extended Binary Coded Decimal Interchange 
Code (EBCDIC or Binary Coded Decimal (BCD). 

60- or 48- character Seta If the source program is written in the 
60-character set, specify CHARSET C6 0) ; if it is written in the 
48-character set, specify CHARSET C48). 

The language reference manual for this compiler lists both of these 
character sets. IThe compiler will accept source programs written 
in either character set if CHARSET C48) is specified)* 

BCD or EBCDIC; If the source program is written in BCD, specify 
CHARSET (BCD); if it is written in EBCDIC, specify CHARSET (EBCD- 
IC). The language reference iranual for this compiler lists the 
EBCDIC representation of both the 48-character set and the 60- 
character set. 

If both arguments C4 8 or 60, EBCDIC or BCD) are specified, they may 
be in any order and should foe separated by a blank or by a comir.a. 

COMPILE Option 

The COMPILE option specifies that the compiler is to compile the 
source program unless an unrecoverable error was detected during 
preprocessing or syntax checking- The NOCOMPILE option without an 
argument causes processing to stop unconditionally after syntax 
checking. With an argument, continuation depends on the severity 
of errors detected so far, as follows 

NOCOMPILE (W) -—- No compilation if a «varniuj, error, sever error 

or unrecoverable error is detected. 
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NOCOMPILE(E) No compilation if error, severe error, or unrecov- 
erable error is detected. 

NOCOMPILE(S) No compilation if a severe error or unrecoverable 

error is detected. 

If the compilation is terminated by the NOCOMPILE option, the 
cross-reference listing and attribute listing may be produced; the 
other listings that follow the source progran will not be produced. 

CONTROL Option 

The CONTROL option specifies that any compiler options deleted for 
your installation are to be available for this compilation. You 
must still specify the appropriate keywords to use the options. 
The CONTROL option must be specified with a password that is estab- 
lished for each installation; use of an incorrect password will 
cause processing to be terminated. the CONTROL option, if used, 
must be specified first in the list of options. It has the format: 

CONTROLC "password* > 

where "password" is a character string, not exceeding eight 
characters. 

COUNT Option 

The COUNT option specifies that the compiler i s to produce code to 
enable the number of times each statement is executed to b e coun- 
ted at execution time. 

The COUNT option implies the GOSTMT option if the STMT option ap- 
plies, or the GONUMBER option if the NUMBER option applies. 

DECK Option 

The DECK option specifies that the compiler is to produce an object 
module in the form of 80 -column card images and store it in the 
data set defined by the DD statement with the name SYSPUNCH. 
Columns 73~76 of each card contain a code to identify the object 
module; this code comprises the first four characters of the first 
label in the external procedure represented by the object module. 
Columns 77-80 contain a 4-digit decimal numberth e first card is 
numbered 0001, the second 0002, and so on. This option is req 
uired to produce a dataset to be converted to a TSS loadable 
modul e . 

DUMP Option 

The DUMP option specifies that the compiler is to produce a for- 
matted dump of main storage if the compilation terminates abnormal- 
ly (usually due to an I/O error or compiler error). This dump is 
written on the data set associated with SYSPRINT. 

BSD Option 

The ESD option specifies that the external symbol dictionary CESD) 
is to be listed in the compiler listing. 

FLAG Option 

The FLAG option specifies the minimum severity of error that re- 
quires a message to be listed in the compiler listing: 

FLAG* I) List all messages. 

FLAG CM) List all except informatory messages. If you specify 

FLAG, FLAG(W) is assumed. 

FLAG(E) List all except warning and informatory messages. 
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FLAG(S) List only severe error and unrecoverable error 

messages. 

GONUMBER Option 

The GCNUMBER option specifies that the compiler is to produce addi- 
tional information that will allow line numbers from the source 
program to be included in execution- time messages, Alternat ively, 
these line numbers can be derived by using the offset address, 
which is always included in execution -time messages, and the table 
produced by the OFFSET option* (the NUMBER option must also 
apply.) 

Use of the GONUMBER option implies NUMBER, NOSTMT, and NOGOSTMT. 

GOSTMT Option 

The GOSTMT option specifies that the compiler is to produce addi- 
tional information that will allow statement numbers from the 
source program to be included in execution-time messages- Alterna- 
tively, these statement numbers can be derived by using the offset 
address, which is always included in execution-time messages, and 
the table produced by the OFFSET option, (the STMT option must 
also apply.) 

Use of the GOSTMT, NOGONUMBER option implies STMT and nonumber. 

INCLUDE Option 

The INCLUDE option reguests the compiler to handle the inclusion of 
PL/I source statements for programs that use the % INCLUDE state- 
ment. For programs that use the * INCLUDE statement but no other 
PL/1 preprocessor statements, this method is faster than using the 
preprocessor. If the MACRO option is also specified, the INCLUDE 
option has no effect. 

INSOURCE Option 

The INSOURCE option specifies that the compiler is to include a 
listing of the source program (including preprocessor statements) 
in the compiler listing* This option is applicable only when the 
preprocessor is used, therefore the MACRO option must also apply. 

LINECOUNT Option 

The LINECOUNT option specifies the number of lines to be included 
in each page of the compiler listing, including heading lines and 
blank lines. the format of the LINECOUNT option is: 

LINECOUNT (n) 

where "n" is the number of lines. It must be in the range 1 
through 32767, but only headings are generated if you specify less 
than 7. 

LIST Option 

The LIST option specifies that the compiler is to include a listing 
of the object module Cin a form similar to IBM assembler language 
instructions) in the compiler listing. The format of the list 
option is : 

LIST((mC,n)) J 

where "m" is the number of the first source statement for which an 
object listing is required and m n m is the number of the last source 
statement for which an object listing is required. If "n" is 
omitted, only statement "ro" is listed, If the option NUMBER appli- 
es, "it" and "n" must be specified as line numbers,. 
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LMESSAGE Option 

The LMESSAGE and SMESSAGE options specify that the compiler is to 
produce messages in a long form (specify LMESSAGE) or in a short 
form (specify SMESSAGE). 

MACRO Option 

The MACRO option specifies that the source program is to be pro- 
cessed by the preprocessor, 

MAP Option 

The MAP option specifies that the compiler is to produce tables 
showing the organization of the static storage for the object 
module. These tables consist of a static internal storage map and 
the static external control sections. The MAP option is normally 
used with the LIST option. 

MARGINI Option 

The MARGINI option specifies that the compiler is to include a 
specified character in the column preceding the left-hand margin, 
and in the column following the right-hand margin of the listings 
resulting from the INSOURCE and SOURCE options. Any text in the 
source input which precedes the left-hand margin will be shifted 
left one column, and any text that follows the right-hand margin 
will be shifted right one column. For variable- length input rec- 
ords that do not extend as far as the right-hand margin, the 
character is inserted in the column following the end of the rec- 
ord. Thus text outside the source margins can be easily detected, 

the MARGINI option has the format: 

MARGINK ■c* ) 

where m c n is the character to be printed as the margin indicator. 

MARGINS Option 

The MARGINS option specifies the extent of the part of each input 
line or record that contains PL/I statements. The compiler will 
not process data that is outside these limits (but it will include 
it in the source listings). 

The option can also specify the position of an American National 
Standard (ANS) printer control character to format the listing pro- 
duced if the SOURCE option applies. This is an alternative to 
using %PAGE and %SKIP statements (described in the language refer- 
ence manual for this compiler). If you do not use either method, 
the input records will be listed without any intervening blank 
lines. the format of the MARGINS option is: 

MARGINS (m,n{c]) 

where "m" is the column number of the left-hand margin. It should 
not exceed 100. 

"n" is the column number of the right-hand margin. It should be 
greater than m r but not greater than 100. 

n c n is the column number of the ANS printer control characters. It 
should not exceed 100 and should be outside the values specified 
for m and n. Only the following control characters can be used: 

(blank) skip one line before printing. 

skip two lines before printing. 

- skip three lines before printing. 
+ no skip before printing. 

1 start new page. 
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The standard IBM -supplied default for fixed-length records is MAR- 
GINS (2,72,0) ; that for variable-length and undefined-length rec- 
ords is MARGINS (10,100,0). A zero value for ^c** specifies that 
there is no printer control character. 

MDECK Option 

The MDECK option specifies that trie preprocessor is to produce a- ' 
copy of its output (see MACRO option) and store it in the data set 
defined by SYSPUNCH, the load. module dataset. The last four bytes 
of each record in SYSUT1 are not copied, thus this option allows 
you to retain the output from the preprocessor as a deck of 80- 
column punched cards. 

NAME Option 

The NAME option specifies that the compiler is tc place a NAKE 
statement as the last statement of the object module. When pro- 
cessed by the object deck converter, this NAME statement indicates 
that primary input is complete and causes the specified name to be 
assigned to the load module created from the preceding input (since 
the last NAME statement). 

It is required if you want the object deck converter to create more 
than one load module from the object modules produced by batched 
compilation* 

If you do not use this option, hhe object deck converter will use 
the module name specified in the command. the format of the NAME 
option is: 

NAME ('name' ) 

where name has from one through eight characters, and begins with 
an alphabetic character. 

NEST Option 

the NEST option specifies that, the listing resulting from the 
SOURCE option will indicate, for each statement, the block level 
and the do-group level. 

NUMBER option 

The NUMBER option specifies that the numbers specified in the 
sequence fields in the source input records are to be used to 
derive the statement numbers in the listings resulting from the 
AGGREGATE, ATTRIBUTES, LIST, OFFSET, SOURCE and XREF options.. 

If NONUMBER is specified, STMT and NOGONUMEER are implied. NUMBER 
is implied by NOSTMT or GONUMBER. 

The position of the sequence field can be specified in the SEQUENCE 

option. Alternatively the following default positions are assumed: 

First 8 columns for undefined-length or variable-length source 
input records. In this case, 8 is added to the values used in the 
MARGINS option. 

Last 8 columns for fixed-length source input records. 

Note : The preprocessor output has fixed-length records irrespective of 
the original primary input. Any sequence numbers in the primary input 
are repositioned in columns 73-80„ 

The line number is calculated from the five right-hand characters of the 
sequence number (or the number specified, if less than five). These 
characters are converted to decimal digits if nec^saxy « Each time a 
sequence number is found that is not greater tha<- the preceding line 

322 



number, a new line number is formed by adding the minimum integral mul- 
tiple of 100,000 necessary to produce a line number that is greater than 
the preceding one. If the sequence field consists only of blanks # the 
new line number is formed by adding 10 to the preceding one. The maxi- 
mum line number permitted by the compiler is 134, 000 r 000; numbers that 
would normally exceed this are set to this maximum value. Only eight 
digits are printed in the source listing; line numbers of 100 f 000,000 or 
over will be printed without the leading "1" digit. 

If there is more than one statement on a line, a suffix is used to iden- 
tify the actual statement in the messages. For example, the second 
statement beginning on the line numbered *t0 will be identified by the 
number 40.2. The maximum value for this suffix is 31. Thus the thirty- 
first and subsequent statements on a line have the same number. 

OBJECT Option 

The OBJECT option specifies that the compiler is to store the 
object module that it creates in the data set defined by the ddname 
SYSLIN called punch. module. 

OFFSET Option 

The OFFSET option specifies that the compiler is to print a table 
of statement or line numbers for each procedure with their offset 
addresses relative to the primary entry point of the procedure. 
This information is of use in identifying the statement being 
executed when an error occurs and a listing of the object module 
(obtained by using the LIST option) is available. if GOSTMT appli- 
es, statement numbers, as well as offset addresses, will be includ- 
ed in execution- time messages. if GONUMBER applies, line numbers, 
as well as offset addresses, will be included in execution-time 
messages . 

OPTIMIZE Option 

The OPTIMIZE option specifies the type of optimization required; 

NOOPTIMIZE — specifies fast compilation speed, but inhibits opti- 
mization for faster execution and reduced main storage 
requirements . 

OPTIMIZE (TIME) — specifies that the compiler is to optimize the 
machine instructions generated to produce a very efficient object 
program. A secondary effect of this type of optimization can be a 
reduction in the amount of main storage required for the object 
module. The use of OPTIMIZE (TIME) could result in a substantial 
increase in compile time over NOOPTIMIZE. 

OPTIMIZEC0) — is the equivalent of NOOPTIMIZE. 

OPTIMIZEC2) — IS THE EQUIVALENT OF OPTIMIZE (TIME). 

The language reference manual for this compiler includes a full 
discus sion of optimization. 

OPTIONS Option 

The OPTIONS option specifies that the compiler is to include in the 
compiler listing, a list showing the compiler options, to be used 
during this compilation. 

SEQUENCE Option 

The SEQUENCE option specifies the extent of the part of each input 
line or record that contains a sequence number. This number is in- 
cluded in the source listings produced by the INSOURCE and SOURCE 
option. Also, if the NUMBER option applies, line numbers will be 
derived from these sequence numbers and will be included in the 
source listing in place of statement numbers. No attempt is made 
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to sort the input lines or records into the specified sequence. 
The SEQUENCE option has the format: 

SEQUENCE Cm, n> 

where "m" specifies the column number of the left-hand margin, 
where *n w specifies the column number of the right-hand margin. 

The extent speified should not overlap with the source prograir (as 
spe cified in the MARGINS option), 

SIZE Option 

This option can be used to liirit the amount of main storage used by 
the compiler. This is of value, for example, when dynamically 
invoking the compiler, to ensure that space is left for other pur- 
poses. The SIZE option can be expressed in five forms; 

SIZE(YYYYYYYY) — specifies that yyyyyvyy bytes of main storage are 
to be requested. leading zeros are not required. 

SIZE(YYYYYK) — specifies that YYYYYK bytes of main storage are to 
be requested (lK=102*O. Leading zeros are not required. 

SIZE(-YYYYYY) — specifies that the compiler is to obtain as much 
main storage as it can, and then release YYYYYY bytes to the oper- 
ating system. Leading zeros are not required. 

SIZE(-YYYK) — specifies that the compiler is to obtain as much 
main storage as it can, and then release YYK bytes to the operating 
system (1K=1024>. Leading zeros are not required. 

SIZE (MAX) — ■ specifies that the compiler is to obtain as much main 
storage as it can. 

The IBM default, and the most usual value to be used is SIZE (MAX), 
which permits the compiler to use as much main storage in the par- 
tition or region as it can. 

When a limit is specified, the amount of main storage used by the 
comp ilerdepends on how the operating system has been generated, 
and the method used for storage allocation. The compiler assumes 
that buffers, data management routines, and processing phases take 
up a fixed amount of main storage, but this amount can vary unknown 
to the compiler* 

MESSAGE Option 

See LMESSAGE option. 

SOURCE Option 

The SOURCE option specifies that the compiler is to include in the 
compiler listing a listing of the source program. The source pro- 
gram listed is either the original source input or, if the MACRC 
option applies, the output from the preprocessor - 

STMT Option 

The s™t option specifies that statements in the source program are 
to be counted, and that this "statement number" is used to identify 
statements in the compiler listings resulting from the AGGREGATE, 
ATTRIBUTES, LIST, OFFSET, SOURCE, and XREF options. STMT is 
implied by NONUMBER or GCSTMT. If NOSTMT is specified, NUMBER and 
NOGOSTMT are implied. 

STORAGE Option 

The STORAGE option specifies that the compiler is to include in 
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thecompiler listing a table giving the main storage requirements 
for the object module. 

SYNTAX Option 

The SYNTAX option specifies that the compiler is to continue into 
syntax checking after initialization Cor after preprocessing if the 
MACRO option applies) unless an unrecoverable error is detected. 

The NOSYNTAX option without an argument causes processing to stop uncon- 
ditionally after initialization Cor preprocessing) . With an argument, 
continuation depends on the severity of errors detected so far, as 
follows: 

NOSYNTAX (W) — No syntax checking if a warning, error, severe 
error, or unrecoverable error is detected. 

NOSYNTAX(E) -- No syntax checking if an error, severe error, or 
unrecoverable error is detected* 

NOSYNTAX(S) — No syntax checking it a severe error or unrecover- 
able error is detected. 

If the SOURCE option applies, the compiler will generate a source 
listing even if syntax checking is not performed. 

If the compilation is terminated by the NOSYNTAX option, the cross- 
reference listing, attribute listing, and other listings that fol- 
low the source program will not be produced. 

The use of this option can prevent wasted runs when debuggin a PL/I 
program that uses the preprocessor . 

TERMINAL Option 

It specifies that some or all of the compiler listing produced dur- 
ing compilation is to be printed at the terminal. If TERMINAL is 
specified without an argument, diagnostic and informatory messages 
are printed at the terminal,, You can add an argument, which takes 
the form of an option list, to specify other parts of the coirpiler 
listing that are to be printed at the terminal. 

The listing at the terminal is independent of that written on 
SYSPRINT.the following option keywords, their negative forms, or 
their abbreviated forms, can fce specified in the option list: 

AGGREGATE, ATTRIBUTES, ESD , INSOURCE f LIST, MAP, OPTIONS, SOURCE, 
STORAGE, and XREF. 

The other options that relate to the listing (that is, FLAG, 
GONUMEER,GOSTMT, LINECOUNT, LME S SAG E/SMES SAGE, MARGI NI , NEST, and 
NUMBER) will be the same as for the SYSPRINT listing. 

XREF Option 

The XREF option specifies that the compiler is to include in the 
compiler listing a list of all identifiers used in the PL/ I program 
together with the numbers of the statements in which they are 
declared or referenced. Note that label references on END state- 
ments are not included, reference lists for structures may be 
incomplete, and arrays of structures are always listed with bounds 
of (*). If both ATTRIBUTES and XREF apply, the two tables are 
combined. 
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SPECIFYING EXECUTION-TIME OPTIONS 

For each execution, the IBM or installation default for an execution- 
time option will apply unless it is overridden by a PLIXOPT string in 
the source program or by the PARM parameter of the OSRUN statement for 
execution. 

An option specified in the PLIXOPT string overrides the default value, 
and an option specified in the PARM parameter overrides that specified 
in the PLIXOPT string. 

Specifying Execution-time Options in the PLIXOPT String 

Execution- time options can be specified in a source program by means of 
the following declaration: 

DCL PLIXOPT CHAR (len) VAR INIT C ' strng • ) STATIC EXTERNAL? 

where "strng" is a list of options separated by commas, and "len* 
is a constant equal to or greater than the length of "strng". 

If more than one external procedure in a job declares PLIXOPT as STATIC 
EXTERNAL, only the first string will be link-edited and available at 
execution time. 

Specifying Execution- time Options in the OSRUN Oommand 

You can also use the PARM field to pass an argument to the PL/I main 
procedure. To do so, place the argument, preceded by a slash, after the 
execution-time options. for example: 

OSRUN OPT, 'ISASIZE (10K), RE PORT/ ARGUMENT 

If you wish to pass an argument without specifying options, it must be 
preceded by a slash, for example: 

OSRUN OPT, PARM= f /ARGUMENT" 

EXECUTION -TIME OPTIONS 

The following paragraphs describe the execution- time options, which can 
be specified in the EXEC statement or in the PLIXOPT string. 

COUNT 

specifies that a count is to be kept of the number of times each 

statement in the program is executed and that the results are to be 

printed when the program terminates. 

NOCOUNT 

specifies that statement counting is not to be performed. 

REPORT 

specifies that a report of certain program management activity is 
to be printed. The report will be automatically output to a data- 
set with the ddname PLIDUMP or PL1DUMP on program termination. 
This includes, for example, the amount of storage that was speci- 
fied in the ISASIZE option, the length of the initial storage area, 
and the amount of PL/I storage required. This option may be abbre- 
viated to R. The use of the report is described in "execution- time 
Storage Requirements" , below. 

NOREPORT 

specifies that a report is not required. This option may be abbre- 
viated to NR. 
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STAE 

specifies that when an ABEND SVC, but not a TSS abend , occurs, the 
PL/I library routines are to attempt to raise the ERROR condition 
or to produce a diagnostic message and a PLIEUMP. 

NOSTAE 

specifies that on program initialization, a STAE macro instruction 
is not to be issued. 

SPIE 

specifies that when a program interrupt occurs, the PL/I error 
handler is to be invoked. Under certain circumstances the ERROR 
condition will be raised. 

NOSPIE 

specifies that on program initialization, a SPIE macro instruction 
is not to be issued. This option must not be used if extended pre- 
cision variables are used in the PL/I source program. 

The execution-time options are discussed in greater detail in the publi- 
cation OS PL/I Optimizing Compiler; Execution Logic » 
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When more than one page reference is given, the 
major reference is first. All references are within plus or 
minus one of the indicated page numbers. 

! (exclamation point, response to attention interrup- 
tion) 13 

$ (preceding dummy operand) 62 

* (asterisk, response to attention interruption) 13 

% (dynamic statement counter) 51 

(PC command operand) 5 1 
_ (underscore response to attention interruption) 13 
%COM 44 

%CSECT and %COM 44 
%END (end-of-data record) 1 6 
%ENDDS card 263, 265 



ABEND command 92, 9, 14 
ABENDREG command 92, 93, 9 
abnormal termination 17, 93 
absolute generation number, definition 7 
absolute line number 22 
ACC operand 266 

CATALOG command (Form 1) 107 
ACCESS operand 266 

PERMIT command 206 
ACTION operand 266 

CATALOG command (Form 2) 107 
address 

constant 50 

FORTRAN statement number 44 

hexadecimal 47 

specification 42 

variable 44 
alias 216 
ALIAS operand 266 

POD? command 215 
Aliases and member names placard on SYSOUT 

(POD? command) 216 
ALPHABET implicit operand 266, 1 1, 90 

C, CA, and CB commands 103 

K, KA, and KB commands 1 78 
apostrophe 

in character constant 49 

in quoted string 23 
arithmetic expression 53 
arithmetic operator 53 
array examples 45 
assembler 93, 34 
ASM command 93, 96, 34 



ASMALIGN implicit operand 88, 94 

ASMLIST operand 266 

ASM command 93, 94 
asterisk, response to attention interruption 13 

AT command 97, 98, 40 

AT commands of dynamic statements, deleting 

(REMOVE command) 23 1 
attention interruption 

interruption of language processing 36 

interruption of privileged program 13 

interruption of user program 13, 14, 36 

levels of interruption 13 

resume execution after 169, 14 

save status after 226 

system response 1 3 

user handling routine 14 
attention interruption prevention switch (IPS) 13 
attributes 

of control sections 38 

of data locations 51 

of VAM data set, changing (RET command) 232 



BACK command 98, 99, 9, 1 8 
BASE operand 266 

EDIT command 148 

REGION command 227 
batch job, status of 158 

batch sequence number (BSN) 16, 99, 106, 158 
BCD operand 266 

FTN command 166 
BEGIN command 98, 9 
binary constant 51 
BKPD macro instruction 102 
BLIP command 100 
BLIP? command 101 
braces (notation al symbol) 4 
brackets (notational symbol) 4 
BRANCH command 1 1 , 40 
break characters 

command system transient statement prefix 
character 281 

command system prompt character 19, 282 

definition 19 

entry in data set 19 

text editor processing 19 

user definition 193 
BREVITY implicit operand 266, 90 
BSN (see b*t<-h ?:tquence number) 
BSNope<„nd 266 

CANCEL command 106 
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BUILT1N command ! 02, 60 

(see also object program definition) 

bulk input 

from card decks 263, 265 
from magnetic tape 260, 261 

bulk I/O job, status of 1 58, 1 59 

bulk output 

to cards 223, 224 
commands 33 
to tape 247 



C, CA, and CB commands 103, 12 
call another object program 105 
CALL command 104, 105, 28 
calling operand 

analysis of 71 

defaults 72 

nulls 73 

specification of 71 

synonyms 88 
CANCEL command 1 06 

canceling previous DDEF (RELEASE command) 229 
card input 263 
card punching of VS AM or VIS AM data sets 

(PUNCH command) 223, 224 
carriage return suppression character 282 
catalog 

automatic 6, 107 

create entry for 
data set 109 

generation data group 109 
generation member 109 
volume 155 

definition 6 

delete entry for 

private data sets 133 
public data sets 153 
shared data sets 133 

index, creation of 109 

present catalog 205 

update entry 109 
CATALOG command 107-1 1 1, 20 
catalog entry, removal from user's catalog (ERASE 

command) 152 
cataloged, definition 6 
CDD command 111,20 
CDS command 112,20 
change characters (CORRECT command) 1 22 
changing a data set (DISABLE, ENABLE, POST, 

and STET commands) 1 34- 1 40 
changing attributes of VAM data set (RET command) 
232 



changing contents of data location (SET command) 236 
changing control path of a program (BRANCH 

command) 101 
CHAR operand 266 

CORRECT command 1 22 
LIST command 182, 183 
character constant 49 
character set control (for SYSIN) 1 1 

(see also, C, CA, CB commands and K, KA, KB 
commands) 
character strings 23 
character switch table 28 1 , 282 
character translation tables 271, 280 
CHGPASS command 1 1 6, 9, 296 
CLEANUP implicit operand 266, 90 

EXIT command 160 
CLOSE command 1 1 7, 20 
CLP (see current line pointer) 
CLP operand 266 

MC AST command 193 
COBOL command 119 
coded value 5 
codes 

message filter 81,82 
miscellaneous control codes 281 
printer carriage 283 
punch 284 

translation character 269, 27 1 
comma, use in command statement 2, 5 
command creation commands 60 
command execution, resuming 169 
command format summary table 296, 301 
command mode, return to user in 234 
command name 2, 24 1 
command procedure, definition of 60 
command procedure definition (PROCDEF 
command) 222, 60 
calling 71 

command creation 60 
deletion 69 

dummy operands 61,62 
editing 68 
entering text 66, 63 
examples 61-80 
interruption 68-70 
messages 70 
nesting 65, 68 
operand equivalences 74 
operand resolution 69 
procedure library 6 1 
prompting 63 
sharing 68 
synonyms 88, 241 
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termination 63, 151 
command prompt string 282 
command statement 

command name 2 

conditional (IF command) 3, 41 
specification 175 

continuation 10 

dynamic (AT command) 3,41 
counter 5 1 
specification 97 

entering 3, 1 1 

execution 1 2 

format 

description 2 
free-form 1 1 

immediate 3,41 

invalid 12, 17 

renaming 242 

request for next statement 1 1 

resolution 1 2 

series 3, 12 

system request for next 1 1 

termination 1 1 

user-written 60, 222 
command symbols 44 
command system break character 281 
command system continuation character 281 
commands, creation of 60 
commands, renaming 241 
comment 3 

COMMON block name, FORTRAN 44 
compiler 

FORTRAN (FTN command) 164-168, 34 

PL/I (PLI command) 208-212, 304, 308 
compiler options, PL/I 304-308 
concatenating input records 28 
concatenation character 281 
conditional execution (IF command) 175 
conditional statement 3,41,175 
CONF operand 266 
CONPRMT implicit operand 266, 90 

UPDATE command 250 
CONREC implicit operand 266, 90 

UPDATE command 250 
constants 

address 50 

binary 5 1 

character 49 

floating-point 50 

hexadecimal 22, 50 

integer 49 

string 23 



CONT operand 266 

MCAST command 193 
CONTEXT command 1 20, 1 2 1 
continuation character 28 3 
continuation line 1 1 
control, return to user 234 
control characters 281 
control codes and characters 283, 284 
control section 

attributes 38 

packing 191 
conversational mode 10 
conversational task 

conversion to nonconversational task (BACK 
command) 98 

execution 10 

initiation 10 

output 15 

termination 1 5 
copy data set or members 112 
COPYBASE operand 266 

CDS command 112, 113 
COPYINCR operand 266 

CDS command 112, 113 
copying VAM data set in storage (W command) 254 
copying VAM data set to tape 252 
CORMARK operand 266 

CORRECT command 1 22 
CORRECT command 122-125 
correction characters 122 
counter, dynamic statement 51 
CP operand 266 

MCAST command 193 
Creating a catalog index (CATALOG command) 107 
creating user's environment (LOGON command) 1 90 
creating a VISAM data set or member (MODIFY 

command) 197 
CRLIST operand 266 

ASM command 93-94 

FTN command 164-165 
CSW operand 266 

PROFILE command 222 
current line pointer (CLP) 266, 19 

definition 19 

displaying value of 182, 22 

positioning rules 295 



DA operand 

SECURE command 235 
DATA command 1 26- 1 30 
DATA operand 267 
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POD? command 215 
data-card data set 262 
data definition name (DDNAME) 
definition 6 

listing (DDNAME? command) 131 
data descriptor card 263 
data editing commands 31,32 
data field 

definition of 52 
to dump contents of 1 47 
to print on SYSOUT 141 
data location 

to change contents of 236 
definition 5 1 
data management commands 20 
DATASET 263 
data set 

automatic cataloging, VAM 6, 108 
cataloging 

data set (CATALOG command) 107 
generation data group (CATALOG con 
volume (EW command) 154 
cataloged, status 145 
closing (CLOSE command) 1 17 
copying 

data set (CDS command) 1 1 2 
source/copy table 114 
volume 

tape to VAM (TV command) 347 
VAM to tape (VT command) 252 
VAM to VAM (W) 254 
creating 

VISAM 21-33, 126, 197 
VPAM member 126,197 
VSAM 33, 197 
defining 

atypical (DDEF command) 285-294 
retrieve DDEF (CDD command) 1 1 1 
typical public VAM (DDEF command) 129 
deleting catalog entry 

private or shared (DELETE command) 133 
public (ERASE command) 1 52 
deleting data definition 

(RELEASE command) 229 
displaying lines of line data set 

(LINE? command) 180 
displaying lines of line or region data let 

(LIST command) 182 
editing 

example 28 
VISAM 21,32 
VSAM 3 2 



erasing 

after copying (CDS command) 1 1 2 

after printing (PRINT command) 2 1 8 

after punching (PUNCH command) 223 

after writing on tape (WT command) 256 

VAM (ERASE command) 1 52 

VISAM (EXCISE command) 1 56 
executing, object code (EXECUTE command) 157 
generation (see generation data set) 
line (see line data set) 

listing names and aliases of VPAM members 
(POD? command) 215 
member 

(see VPAM member) 
modifying VISAM 21-33 

(EXCERPT command) 1 54 

(EXCISE command) 156 

(INSERT command) 176 

(MODIFY command) 197 

(UPDATE command) 250 
107 organization 129 

partitioned (see VPAM member) 
presenting name and access (PC? command) 205 
presenting status (DSS? command) 145 
printing BSAM, VSAM or VISAM (PRINT 
command) 218 
punching VISAM or VSAM (PUNCH command) 223 
region (see region data set) 
renaming 107 
renumbering lines, VISAM (NUMBER command) 

202 
sharing 

(PERMIT command) 206 

(SHARE command) 237 
source language (see source program module) 
system 

DDVTOUT 253 

PCSOUT 147, 285 

SYSIN 11,15,262 

SYSLIB 61,88 

SYSOUT 15-17 

TSKABEND 18 

USERLIB (see USERLIB data set) 
writing VISAM or VSAM on tape 

(WT command) 256 
data set name (DSNAME) 
definition 6 

listing (DDNAME? command) 1 3 1 
data set sharing (SHARE command) 237 
DBASE operand 267 

DATA command 1 26 
DCB operand 267 
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DDEF command 285 
DDEF cancellation (RELEASE command) 229 
DDEF command 1 29, 1 30, 285-294 

creating typical data sets 285-294 

creating typical public VAM data sets 129, 130 
DDNAME operand 267 

CLOSE command 117 

DDEF command 129, 285 

JOBLIBS command 178 

RELEASE command 229 
DDNAME? command 131 
DDVTOUT data set 253 
DEFAULT command 1 32 
default value 

(see also the specific operand) 266-269 

system-supplied commands 6, 13, 266 

user-written commands 70, 88 
default values, changing operand (DEFAULT 

command) 132 
defined (data set), definition 7 
defining a command procedure (PROCDEF 

command) 222 
defining and describing a data set (DDEF command) 

129,285 
DELETE command 133, 129, 285 
deleting AT commands (REMOVE command) 23 1 
deleting data set lines 233 

deleting from current region (EXCISE command) 1 56 
deleting, replacing, reviewing, or inserting VISAM 

lines (MODI FY command) 1 97 
DEPROMPT implicit operand 267, 90 

DELETE command 133 

ERASE command 1 52 
describing and defining a data set (DDEF command) 

130, 285 
DEVICE operand 267 

EW command 1 54 
diagnostic message 10 
DIAREG implicit operand 267, 85 

ABEND command 92 
MNCR operand 267 

DATA command 126 
direct call 104 

DISABLE command 134-140 
Disk dump/restore (DMPRST command) 142 
DISP operand 267 

DDEF command 285-298 
DISPLAY command 140 
display module names 239 
displaying commands 179 

Displaying lines or CLP value (LIST command) 182 
DMPRST command 142- 144 
DSNAME operand 267 



BACK command 98 

CATALOG command (Form 1) 107 

CDD command 1 1 1 

CLOSE command 1 1 7 

DATA command 126 

DDEF command 1 29- 1 3 1 , 285-294 

DELETE command 133 

EDIT command 148 

ERASE command 152 

EXCERPT command 154 

EXECUTE command 157 

LINE? command 180 

PERMIT command 206 

PRINT command 218 

PUNCH command 223 

RELEASE command 229 

RET command 232 

SHARE command 237 

WT command 256 
DSNAME! operand 267 

CDS command 112 

TV command 247 

VT command 252 

W command 254 
DSNAME2 operand 267 

CDS command 112 



TV command 


247 


VT command 


252 


W command 


254 


WT command 


256 


DSORG operand 




DDEF command 1 29, 285-294 


DDS? command 


145 


dummy operand 




examples 61, 


74,75 


external string 


62 


internal string 


62 


specification 


6! 



dump and restore VAM2 disk 142 

DUMP command 147, 37 
dump tapes, printing TSS 218 
dynamic statement 

counter 51, 97 

definition 41,3 

deleting (REMOVE command) 23 1 

specification 97 



EBCDIC mode 5-10 
EDIT commajid 148, 
editing 

(see also data set) 
data " ? 



21 
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text 21 
EJECT command 150 
eliminating nonconversational task or job 

(CANCEL command) 1 06 
ellipsis (Notational symbol) 5 
ENABLE command 1 34, 2 1 
END command 151,21 

ending task, notifying system (LOGOFF command) 190 
ENDNO operand 

PRINT command 218 

PUNCH command 223 

WT command 256 
entering hexadecimal data 29 
Entry from user's catalog, deleting (DELETE 

command) 133 
EOB character 

command system continuation 281, 11 

source list end of block 281 
EOB operand 267 

MC AST command 193 
equivalences, operand 74 
ERASE command 152 
ERASE operand 267 

CATALOG command (Form 2) 107 

CDS command 112 

PRINT command 218 

PUNCH command 223 

WT command 256 
ERROROPT operand 267 

PRINT command 218 
EW command 154,20 
EXCERPT command 1 54, 21 
EXCISE command 156,21 

exclamation point (response to attention interruption) 1 1 
EXECUTE command 1 57, 9 
execution time, specifying (TIME command) 243 
EXHIBIT command 1 58, 9, 298 
EXIT command 160 
EXPLAIN command 161 
explanation message 85 
EXPLICIT operand 267 

PLI command 208 
express mode 36 
expression 

arithmetic 53 

logical 55 

undefined 54 
extended message 86 
external symbol 43 
EXTNAME operand 267 

BU1LTIN command 102 



FACTOR operand 267 

WT command 256 
F1LEDEF command 1 63 
F1LEREL command 1 64 
filter codes, message 82 
floating-point constant 50 
folded mode 11,179 
FORM operand 267 

PRINT command 267, 218 

PUNCH command 223 
FORTRAN compiler 34, 164 
FORTRAN control characters 

printer 283 

punch 284 
FORTRAN statement number 43 
FROMDEV operand 267 

DMPRST command 142 
FRVCLID operand 267 

DMPRST command 142 
FTN command 164, 34 
FTN operand 267 

MODIFY command 197 
FTNH command 167 
full (unfolded) mode 179 



GAV command 168 
GDG operand 267 

CATALOG command (Form 2) 107 
GDV command 169 
generation data group, definition 7 
generation data sets 

catalog 107 

generation data group 7 

list 37 

generation names 7 

number 7 
generation names, definition 7 
GNO operand 267 

CATALOG command (Form 2) 107 
GO command 169, 
GOTO command 170 
GSV command 172 



Halting execution (STOP command) 
HASM command 172 
HEADER operand 267 

PRINT command 218 

WT command 256 
hexadecimal 



240 
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constant 22, 50 

data, entering 29 

location 49 
HEXSW implicit operand 267, 90 

CONTEXT command 1 20 

UPDATE command 250 
HOLD operand 267 

DDEF command 285-298 



IF command 175, 37 
immediate statement 3,41 
implicit operands 90 
INCR operand 267 

EDIT command 148 

INSERT command 176 

NUMBER command 202 

REGION command 227 

REVISE command 233 
information concerning data sets (PC? command) 205 
information message 10 

initiating or resuming execution (RUN command) 235 
input records, concatenating 28 
INSERT command 176, 21, 23 
inserting, deleting, replacing, or reviewing VISAM 

lines (MODIFY command) 1 97 
inserting from data set to data set (EXCERPT 
command) 154 
inserting terminal-entered lines (UPDATE command) 
250 

insertion of characters (CORRECT command) 122 
INSERTn operand 267 

PRMPT command 221 
INSTLOC operand 267 

BRANCH command 101 
instruction location 56 
integer constant 49 
internal symbol 

definition 43 

qualification 43, 44 

reference to in loaded program 216 

subscripted 45 
internal symbol dictionary (ISD) 42, 43, 56 
internal symbols in module, referencing (QUALIFY 

command) 226 
interruption, attention 

(see attention interruption) 
INTRAN operand 267 

MCASTAB command 195 
Introducing nonconversational task to system 
(EXECUTE command) 1 57 
invoking Linkage Editor (LNK command) 185 
invoking object module or procedure (CALL 
command) 104 



Invoking the assembler (ASM command) 93 
invoking the text editor (EDIT command) 148 
I/O device 207,215,238,258 

releasing 229 

reserving 235 
ISD 42,43,56 
ISD operand 267 

ASM command 93 

FTN command 164 

LNK command 185 
ISDLIST operand 267 

ASM command 93 



Job library (see JOBLIB) 
JOBLIB 

copy 112,232 

define 285 

release 229 
JOBLIB operand 267 

DDNAME? command 131 
JOBLIBS command 178 



K, KA, and KB commands 178, 12, 13 
KC operand 267 

MC AST command 193 
KEYLEN operand 267 

DDEF command 287 

MODIFY command 197 
KEYWORD command 1 79 
KEYWORD operand, renaming (SYNONYM 

command) 241 
KEYWORD operand representation 3-4 
KEYWORD, self-defining 4 



LABEL operand 267 

DDEF command 285 

DMPRST command 142 
language processing commands 

(see also source language processing) 

ASM command 93 

FTN command 164 

LNK command 1 85 

PLI command 208 

terminating processing of (END command) 
language processor controller 

(see also EDIT, PROCDEF, PLI commands) 

termination 1 5 1 
LIB operand 267 

LNK command 1 85 
library 

job (see JOBLIB) 



151 
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macro instruction 36 

procedure 6 1 

system 88,61 

user (see USERLIB) 
LIMEN implicit operand 267, 82, 90 
limiting execution time (TIME command) 243 
LINE? command 180 
LINCR operand 267 

ASM command 93 

FTN command 164 

LNK command 1 85 
line, definition 7 
line data set 

(see also data set) 

creating 148, 197 

definition 22 

displaying lines 

LINE? command 180 
LIST command 182 

editing 148, 26 

format 22 

modifying 

(EXCERPT command) 1 54 
EXCISE command 156 
INSERT command 176 
MODIFY command 197 
UPDATE command 250 

renumbering 

NUMBER command 202 
line number 

absolute 22 

offset 24 

prompting 24 

relative 22 

resolution 23, 24 

specification 23, 24 
LINE operand 267 

LINE? command 180 
Line printing of data set (PRINT command) 218 
LJNENO implicit operand 267, 85 

DATA command 126 

MODIFY command 197 
LINES operand 267 

PRINT command 218 

WT command 256 
lines presented from line data set (LINE? command) 

180 
lines to be replaced, specifying (REVISE command) 

233 
link-edit modules, how to 185 
link-edited module name 57 
LIST command 182 



list DDNAMES and associated DSNAMES 
(DDN AME? command) 1 3 1 
LISTDS operand 267 

ASM command 93 

FTN command 164 

LNK command 185 
listing data sets, control of 37 
LL command 184 
LNK command 185 
LOAD command 187 
LOC operand 267 * 

RUN command 235 
LOCATE command 188 
locations for post-AT-command command 

executions 97 
logical expression 55 
logical operators 55 
LOGOFF command 190 
LOGON command 190 

LPC commands (see language processor controller) 
LPCXPRSS operand 267 

ASM command 93 

FTN command 164 

LNK command 185 
LRECL operand 267 

DDEF command 285 

MODIFY command 197 
LTDS command 19, 192 



MACRODS operand 268 

PLI command 208 
MACROLIB operand 268 

ASM command 93 
MAP operand 268 

PLI command 208 
MCAST command 193 
MCASTAB command 195 
member name, definition 7 
member names and aliases placed on SYSOUT 

(POD? command) 215 
member processing (CDS command) 112 
MERGEDS operand 268 

PLI command 208 
MERGELST operand 268 

PLI command 208 
message 

classification 10 

diagnostic 1 1 

explanation 81 

filter codes 82 

filtering 81 



Index 335 



generation 81 
identification code 87 
information 10 
file 

construction 82 
system 8 1 
user 81 
filtering 81 
formats 

explanation 87 
extended 86 
response 86 
standard 86 
word explanation 87 
mode 82 
reference 83 
severity 82 
types 84, 10 
message explanation (EXPLAIN command) 161 
message file manipulation and use (PRMPT 

command) 221 
metasymbols (notational symbols) 4 
MINS operand 268 

TIME command 243 
MMAP operand 268 

FTN command 1 64 
MNAME operand 268 

QUALIFY command 226 
mode, task 

conversational 1 
nonconversational 1 5 
switching 1 7 
MODIFY command 1 97, 3 1 
MODREP operand 268 
ASM command 93 
FTN command 164 
LNK command 185 
module name, displaying 239 
module name, link-edited 57 
MODULE operand 268 
POD? command 215 
moving JOBLIB to logical top of list (JOBLIBS 

command) 1 78 
MSGID operand 268 

PRMPT command 221 
MTT program user connection to (BEGIN 
command) 99 



Nl operand 268 

CONTEXT command 1 20 

CORRECT command 1 22 

EXCERPT command 1 54 



EXCISE command 156 
INSERT command 176 
LIST command 182 
LOCATE command 1 88 
NUMBER command 202 
REVISE command 233 
N2 operand 268 

CONTEXT command 120 
CORRECT command 1 22 
EXCERPT command 154 
EXCISE command 156 
LIST command 182 
LOCATE command 188 
NUMBER command 202 
REVISE command 233 
NAME operand 268 

ASM command 93 
BUILTIN command 95 
CALL command 104 
FTN command 164 
LNK command 1 85 
LOAD command 1 87 
PLI command 208 
PROCDEF command 222 
UNLOAD command 249 
names 

data definition 6 
data set 6 
generation 7 
member 7 
module 57 
region 23 
NAMES operand 268 
DSS? command 145 
PC? command 205 
NBASE operand 268 

NUMBER command 202 
nested PROCDEFs 65 
nested procedures 67 
NEWNAME operand 268 

CATALOG command (Form 1) 107 
NEWPASWD operand 268 

CHGPASS command 116 
NEWVLID operand 268 

DMPRST command 142 
nonconversational SYSIN data set 15 
nonconversational task 
ABEND control 17 
execution 16 
initiation 16, 157 
input from card reader 1 1 
output 17 
reserving devices for 234 
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termination 106 
normal string 25 
notification at specific program locations (AT 

command) 97 
null value 73 
NUMBER command 202 



object module, loading into virtual storage (LOAD 

command) 187 
object module name 57 
object program 

defining (BUILTIN command) 102 
invoking as command (BUILTIN command) 102 
operand resolution 103 
object program module 
call 104,38 
direct call 105 
execute 159,235 
interrupt execution 10, 13, 37, 97 
link 185 
load 187, 103 
modifying 39 
name 57 

placement in library 35 
program control 40-59 
qualify internal symbols 226, 43 
resume execution 169 
run 235,157 
stop execution 240 
unload 249 
OBLIST operand 268 
FTN command 164 
ODC command 204 
offset, character position 24 
operand 

for system-supplied commands 

defaults 6, 13 

equivalences 74 

field 2 

format 4 

keyword 3 

multiple 2 

positional 3 

resolution 1 1 

separator 2 

synonyms 73 
for user-written commands 

calling 71 

defaults 72, 132 

dummy 6 1 

equivalences 74 

keyword 72 

null value 73 



positional 71 
resolution 75 
separator 2 
specification 6 1 
substitution 76 
synonyms 73 
implicit 89 
notation 

keyword 3-4 
position 3-4 
operation field 2 
operation format 5 
operators 

arithmetic 53 
logical 55 
relational 55 
OPTION operand 268 

DDEF command 285 
OPTION 1 operand 268 

EXHIBIT command 158 
OSDD? command 205 
OSRUN command 205 
Output data set on tape (WT command) 256 
OUTRAN operand 268 

MCASTAB command 195 
OWNERDS operand 268 
SHARE command 237 



PADCHAR operand 268 

PLI command 208 
PAGE operand 268 

PRINT command 218 

WT command 256 
PARAMline 61 
passwords 1 1 6 
PC? command 205 
PCS commands 40 
PCS examples 58 

PCS operands, renaming (SYNONYM commands) 241 
PCSOUT data set 147, 245 
PERMIT command 206 

placing data fields in data set (DUMP command) 147 
PL/I compiler 

introduction 34-57 

invoking (PLI command) 208 

options 299 
PLCOPT operand 268 

PLI command 208 
PLI command 208 

format of output 2 1 1 
PLIOPT command 213 
PLIOPT operand 268 

PLI command 208 
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PLIPACK operand 268 

PLI command 208 

PMDLIST operand 268 

ASM command 93 

LNK command 185 

POD? command 215 

PODNAME operand 268 

POD? command 215 
positional operand 3-4, 71 
POST command 1 34, 2 1 7, 2 1 
post-LOGON automatic procedure invocation 
(ZLOGON command) 259 
PPLI 91 
PPLI 

COBOL 119,309 
FILEDEF 163 
FILEREL 164 
FTNH 167,315 
HASM 172 
ODC 204 
OSDD? 205 
OSRUN 205 
PCS 39 

PLIOPT 213,318 
restrictions 91 
prefixing region name (REGION command) 227 
PREXPAND operand 268 
PRINT command 218,33 
printer carriage control codes 283 
printing contents and names of data fields (DISPLAY 

command) 140 
PRISTINE operand (LOGON command) 190 
PRMPT command 221 
PRMPT macro 81 
PROCDEF command 222, 6 1 

(see also command procedure definition) 
procedure call 61 
procedure library 62,13 
PROCNAME operand 268 

KEYWORD command 1 79 
profile, user 

(see user profile) 
profile character switch table 281, 197 
PROFILE command 222, 88, 89 
program control 
applications 41 
commands 40 
examples 58 
functions 39, 40 
program execution, resuming at different location 
(BRANCH command) 1 1 
program management commands 34 
program module 

(see object program module or source program 
module) 



Program Product Language Interface 91 
program products supported under TSS 91 

PROLIB operand 268 

BUILTIN command 102 

PROCDEF command 222 
prompt character 282 
prompting 

after EDIT command 148 

command system 1 1 

definition 24 

line 24 

PROCDEF 66 

text editor 24 
PROTECT operand 268 

DDEF command 285 
prototype character translation table 266 
prototype profile (see user profile) 
PRTSPv.=u'.^id 268 

PRINT command 218 

WT command 256 
PUBLIC operand 268 

FTN command 164 
PUNCH command 223, 33 
punch control codes 284 
PUSH command 225 



QUALIFY command 226, 40 

quoted string 25, 49 



RCC operand 268 

MC AST AB command 195 

RECFM operand 268 

DDEF command 285 

MODIFY command 197 
record format 

line 22 

region 24 

VISAM variable length 86 
reference internal symbols in modules (QUALITY 
command) 226 
reference message 83 
REGION command 227, 2 1 
region, definition 24 
region data set 

create 228, 24 5 26 

definition 24, 25 

edit 27 

example 25 

format 25 

rec-' -' 11%;*: 28 

recoil name 24, 228 

(see also REGSIZE operand) 
register inferences 49, 52 
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REGSIZE operand 268 
EDIT command 148 
REMSG operand 268 
PLI command 208 
relational operators 53 
relative generation number, definition 7 
relative line number 22 
RELEASE command 229 
REMOVE command 231 
removing a module (UNLOAD command) 249 
renaming a data set (CATALOG command) 107 
renaming commands and operands (SYNONYM 

command) 241 
renumbering lines (NUMBER command) 202 
REPLACE operand 268 

CDS command 112, 113 
replacing a string of characters (CONTEXT 
command) 1 20 
replacing existing lines, starting point (REVISE 

command) 233 
replacing, reviewing, inserting, or deleting 
VISAM lines (MODIFY command) 1 97 
replacing user profile with task profile (PROFILE 
command) 222 
reserving devices for private volumes (SECURE 
command) 234 
resource control 10 

resources of system, statistics (USAGE command) 25 1 
response message 85 
restrict or permit sharing cataloged data sets 
(PERMIT command) 206 
resuming execution (GO command) 169 
resuming or initiating execution (RUN command) 235 
RET command 23 1 
RET operand 268 
DDEF command 285 
RET command 23 1 
retrieving and writing tape data set (TV command) 247 
retrieving prestored DDEF commands (CDD 

command) 1 1 1 
RETURN key 1 1 

reviewing, inserting, deleting, or replacing VISAM 
lines (MODIFY command) 197 
REVISE command 233, 2 1 

use of 23 
RKP operand 268 

DDEF command 285 
MODIFY command 197 
RNAME operand 268 
EDIT command 148 
EXCERPT command 1 54 
REGION command 227 
RTRN command 234 
RTYPE operand 268 



DATA command 126 
RUN command 235 
RUNMODE operand 268 

DMPRST command 142 



SCOL operand 269 

CORRECT command 1 22 
scope, word explanation 87 
search for specified character string (LOCATE 
command) 188 
SECURE command 234 
self-defining keyword 4 
semicolon, in command statement 2 
SET command 236 
SETNAME operand 269 

MODIFY command 187 
SHARE command 237 
SHARED operand 269 

ERASE command 152 
sharing cataloged data sets, restriction or 
permission (PERMIT command) 206 
shutdown 17 
SIRTEST operand 269 

EXIT command 160 

PUSH command 225 
SLIST operand 269 

FTN command 164 
source language processing 

assemble 93, 34 

compile 164, 34 

conversational 35 

enter statements 34 

link edit 185,34 

listing data set control 37 

nonconversational 34, 35 

print listing 38 
source list, definition 7 
source list EOB character 281 
source program module 

assembly 93, 34 

compilation 164, 34 

initiate execution 235 

modification 35-37 

prestored 34 

resume execution 235 
SOURCEDS operand 269 

PLI command 208 
SPACE command 239 
SPACE operand 269 

DDEF command 285 
special graphic characters 281 
SSM operand 269 

MCAST command 193 
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STACK command 239 
STACK operand 269 

PUNCH command 223 
standard message 84 
STARTNO operand 269 

PRINT command 218 

PUNCH command 223 

WT command 256 
STATE operand 269 

CATALOG command (Form 1) 107 
statement number 

AT command 97 

FORTRAN 97 
statistics in system presented to user 

(USAGE command) 25 1 
status of cataloged data sets (DSS? command) 145 
STEDIT operand 269 

FTN command 164 
STET command 134-139 

storage assigned, freeing of (ERASE command) 152 
STORED operand 269 

ASM command 93 

FTN command 164 

LNK command 185 
storing VAM data sets on tape (VT command) 252-254 
STOP command 240 
STRING command 241 
string constants 

definition 25, 26 

display 140 

normal 26 

quoted 26 
STRING operand 269 

LOCATE command 1 88 
STRING 1 operand 269 

CONTEXT command 1 20 
STRING2 operand 269 

CONTEXT command 1 20 
subscripted symbols 45 
switching modes 18,98 
symbol 

command 88, 44 

external 43 

internal 43 

reference in loaded module 226 

subscripted 45 
SYMLIST operand 269 

ASM command 93 
synonym 

calling operands 89 

create 241,89 

examples 57 

substitution 58 
SYNONYM command 241, 88 



SYSIN 

character control 1 1 

data set 

conversational 10 
nonconversational 15, 262 

device control 10 

keyboard/card reader switch 282 

operand 269 
SYSINX 269,33,65 
SYSINX operand 269, 64 
SYSLIB 61 
SYSOUT 

conversational 1 5 

nonconversational 1 8 
SYSPRX 88 

system default values 266-269 
system library (SYSLIB) 88, 6 1 
system scope mask 28 1 , 87 



tab character 

limitation 1 1 

use in command 2, 3 
tape output of data set (WT command) 256 
task, conversational 

definition 9 

initiation 190 

interruption, conversational 13 

nonconversational (see nonconversational task) 
task management commands 9 
task profile 

change 88 

enter in USERLIB 88 
task profile replacing user profile (PROFILE 
command) 22 

task status, return to post-LOGON (ABEND 
command) 92 

terminal data placed in current region (INSERT 
command) 176 

terminal-entered lines, inserting (UPDATE 
command) 250 
text editing commands 2 1 
text editor 

examples 27, 28 

invocation 26, 60, 148, 228 

prompting 24, 30 

termination 27, 151 
TIME command 243 
time-limit for task 1 0, 243 
TODEV operand 269 

DMPRST command 142 
TOVOLID operand 269 

DMPRST command 142 
TRANTAB operand 269 
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transaction table 26 

TRANSLAT command 243 

TRAP command 40, 245 

TRP operand 269 

MC AST command 193 

TSKAB END data set 17 

TV command 247 

TYPE operand 269 
CLOSE command 117 
EXHIBIT command 158 



underscore 

as break character 281 

as system prompt character 282, 11, 13, 19 
UNIT operand 269 

DDEF command 285 
UNLOAD command 249, 40 
UPDATE command 250, 21 
UPDTXFER operand 269 

PLI command 208 
USAGE command 251,9 
USAGE command output 302, 303 
user identification 9 
user library (see USERLIB) 
user limits table 10 

(see also USAGE command) 
user profile 

character switch table 281 

definition 88 

erase 88 

prototype 88 
user profile management commands 88 
user profile replaced by task profile 

(PROFILE command) 222 
user prompter 81 
user scope mask 87 
user-written commands 60, 222 
USERID operand 269 

PERMIT command 206 

SHARE command 237 
USERLIB, user profile 88 
using another's data sets (SHARE command) 237 
USM operand 269 

MCAST command 193 



validating user to system (LOGON command) 190 
VAM data set, changing attributes of (RET 

command) 231 
VAM data set to tape (VT command) 252 
VAM volume cataloging (EW command) 1 54 
variable addresses 43 
VERID operand 269 

ASM command 93 

FTN command 164 

LNK command 1 85 
vertical stroke (notation^ symbol) 4 
VISAM data set (see data set) 
VISAM or VSAM data set punched into cards 

(PUNCH command) 223 
volume identification 6 
VOLUME operand 269 

DDEF command 285 

EW command 1 54 

WT command 256 
VPAM member 

(see also object program module) 

copy 1 1 1 

create 126, 148 

request information about 2 1 5 
VSAM data set (see data set) 
VSAM data set creation (DATA command) 126 
VSAM or VISAM data set punched into cards 
(PUNCH command) 223 
VT command 252, 20 
W command 254, 20 



word explanation message 85 
word explanation scope 87 
WRITCHK operand 269 

DMPRST command 142 
writing and retrieving tape data set (TV command) 247 
WT command 256, 33 



X%,useof 28-30 
XFERDS operand 269 
PLI command 208 



ZLOGON command 248, 10, 259, 9 
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